Help for this page

Select Code to Download


  1. or download this
    close $sock;
  2. or download this
    #server
#!/usr/bin/perl
...
print "Terminating Server\n";
close $main_sock;
getc();
  3. or download this
    #client
#!/usr/bin/perl -w
...
    }
}