Select Code to Download

use IO::Socket::INET;

...
my $resp = <$s>; # expect one line response
print $s "second command\r\n";
...