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

##</code><code>##

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

##</code><code>##

use strict;
use warnings;

use IO::Socket;

my $socks = IO:Socket:INET->new(
  Proto    => 'udp',
  PeerPort => 5010,
  PeerAddr => '101.101.101.101',
  ) or die "It didn't work. $! \n"

my $file = 'values.hex';
open my $info, $file or die "It didn't open $file. $! \n";
while(my $line = <$info> {
  $socks->send($line) or die "Nope, can't send that. $! \n";
}