Select Code to Download

$sock->send( "$msg\n"  );  # possibly " $msg\r\n "
# or send a blank line
$sock->send( "\n"  );

while(my $len = sysread( $sock, my $buffer, 1) > 0) {  print "$buffer\
+n"; }

#!/usr/bin/perl
use warnings;
...
               print "$incoming_data\n";
            }
         }