Select Code to Download

#! /usr/bin/perl

...
    print "Netrecv: $line\n";
    $sock->send("ACK\n");
}

#! /usr/bin/perl

...
    print "Netxmit: Connected on port $port\n\n";
    return $sock;
}