Select Code to Download

use strict;
use IO::Socket;
...
    print "client said '$msg'\n";
}
close $sock;

use strict;
use IO::Socket;
...
print $sock "send money!";

close $sock;