Select Code to Download

    while ( $line = <$sock> ) {
        push @output, $line;
    }
    print $sock "BYE\n";

# In the server script
sub process {
...
    }
    print $sock "BYE\n";
}