Select Code to Download

test1.pl:
use IO::Socket::INET;
...
    print $out $msg + 1, "\n";
    sleep 1;
}

test1.pl:
use IO::Socket::INET;
...
    print "got $msg\n";
    print $socket $msg + 1, "\n";
}