in reply to three hand-shake

Have a look at Net::Packet

In Section Seekers of Perl Wisdom