Select Code to Download

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

#!/usr/bin/perl -w
# server0.pl
...
        print CLIENT $line;
        }
}