Select Code to Download

#! /usr/bin/perl -w
# client1.pl - a simple client
...
}
close SOCKET or die "close: $!";
print "\n --Client has disconnected-- \n";

#! /usr/bin/perl -w
# server0.pl
...
print "--END--";
exit;
}