Dear monks,
I have a socks listener on 127.0.0.1:4001
I use IO::Socket::Socks to create a socket to that listener.
like:

$conn = new IO::Socket::Socks
       (ProxyAddr   => '127.0.0.1',
        ProxyPort   => 4001) || die "$!\n";
[download]

Now I want to create and send raw tcp/ip packets through this socket.
I have tried to understand how to use NetPacket::IP and NetPacket::TCP
But all examples I have found on the net involves dealing
with received packages. Not how to create one from scratch
I read somewhere that you could initialize a IP package like:

my $ip = NetPacket::IP->('');
[download]

And then go ahead and fill out the contents like:

$ip->{ver} = 4;
...
[download]

But the empty initialization part crashes
Any ideas how to do this?