I found that:

$ip_obj = NetPacket::IP->decode();
[download]

creates an empty hash, which I can fill with the contents.
So now i know how to create and send packages through a raw socket
But I dont know how to send them through the sock socket
Maybe It is as simple as:

print $conn $raw_tcp_pkg;
[download]

?