Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
close $main_sock;
getc();
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
    }
}
  3. or download this
    perl -MIO::Socket -E ' $s=IO::Socket::INET->new("localhost:1200"); $s-
+>send( "a" ); sleep 1e6 '