perl -MIO -e'new IO::Socket::INET(Proto,udp,PeerAddr,"1.2.3.4:123")->send("@ARGV")'