Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
      print $handle $line;
   }
}
  2. or download this
    #!/usr/bin/perl -w
use IO::Socket;
...
   }
   close $client;
}