Help for this page

Select Code to Download


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