Select Code to Download

# Perl client
#!/usr/bin/perl -w
...
   Type      => SOCK_STREAM,

   ) or die "Couldn't create client : $!\n";

#Perl server
#!/usr/bin/perl -w
...
$response = <$client>;
chomp $response;