Help for this page

Select Code to Download


  1. or download this
    #client##############################
#!/usr/bin/perl -w
...
        print $handle "$name->$line";
    }
}
  2. or download this
    #!/usr/bin/perl
#This is a version that can read and write  
...
   }
   exit 0;
}
  3. or download this
    #!/usr/bin/perl
use IO::Socket;
...
print "Terminating Server\n";
close $main_sock;
getc();
  4. or download this
    #!/usr/bin/perl
use strict;
...
close CONNECTION;
print STDOUT "Client disconnected\n";
}