my $zahl1 = sprintf("%x",100);
print SOCKET pack("H*", $zahl1);