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";
}