Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "$_";
}
$socket->close();

my $line;
while( defined($line=<$socket>)) {
    print $line;
}