Select Code to Download

my $rout = '';
vec ($rout,fileno(SOCKET),1) = 1;
...
   syswrite SOCKET, $lines;
}
close SOCKET;