>>>>> "Randal" == Randal Schwartz <merlyn@STONEHENGE.COM> writes:

Randal> perl -MIO::Socket -e 'IO::Socket::INET->new(PeerAddr=>"some.windoze.box")->send("bye",MSG_OOB)'

Randal> OK.  One *slightly long* line.

Ouch.  Forgot the port number.  Once more, with feeling:

perl -MIO::Socket -e 'IO::Socket::INET->new(PeerAddr=>"bad.dude.com:139")->send("bye",MSG_OOB)'

And formatted so it's a little easier to read:

        #!/usr/bin/perl
        use IO::Socket;
        IO::Socket::INET
                ->new(PeerAddr=>"bad.dude.com:139")
                ->send("bye", MSG_OOB);

There.  I hope they don't take away my Perl goo-roo card for that faux
pas. :-)