Select Code to Download

#!/home/utils/perl/bin/perl

...
   print $line;
   close($client);
}

use strict;
use warnings;
...
die $@ unless $socket;
print $socket "hello\n";
close($socket);

erickn@isfe:/home/erickn> server1.pl   
waiting for a connection
hello