Select Code to Download

#!/usr/bin/perl

...
$|=1;
while ($listen->recv($buf,1)) { print $buf }
die "recv: $!\n";

#!/usr/bin/perl

...
$|=1;
while (recv(SOCKET,$buf,1,0)) { print $buf }
die "recv: $!\n";