Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
use strict;
...

}
__END__
  2. or download this
    #!/usr/bin/perl
use warnings;
use strict;
...
    print $sock $name.'->'. $text, "\n";
}
__END__
  3. or download this
    #Server.pl
#!/usr/local/bin/perl
use strict;
...
redo;
close($server);
<>;