2010/9/28 Anand Parthiban <h3lloan...@gmail.com>:
> my $new_sock = $sock->accept();
> while(<$new_sock>) {
> print $_;
> }
> close($sock);
> #######################################
> --
Put them in a forever loop, like:
while(1) {
my $conn = $sock->accept();
print <$conn>;
}
etc.
You may want to buy the book "Network Programming with Perl" for any
detail about socket programming.
Jeff.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
