Select Code to Download

$socks->send('\xa1\xb1\xc1\xd1')

\xa1\xb1\xc1\xd1\xe1
\xa2\xb2\xc2\xd2\xe2

use strict;
use warnings;
...
while(my $line = <$info> {
  $socks->send($line) or die "Nope, can't send that. $! \n";
}