while(<DATA>)
{
$flag = 0;
$line = $_;
$line =~ s/\s//g;
send(SOCKET, $line, $flag);
}
__DATA__
41 42 43 44 45 46 47 48 49 # ASCII: A B C D E F G H I