Help for this page

Select Code to Download

Select or download this

my $sock = new IO::Socket::INET (LocalPort => 'port',Proto => 'tcp',Li
+sten => 1,Reuse=>1);
die "Could not create socket: $!\n" unless $sock;
    my $new_sock = $sock->accept();
...
    print $_;
}
close($sock);