http://www.perlmonks.org?node_id=1073891


in reply to three hand-shake

Have a look at Net::Packet