#!/usr/bin/perl

use IO::Socket::INET;

my $jeneng  = "_gal_".int(rand(1000));
my $channel = "#angel";
my $serverirc  = "irc.dal.net";
my $preet  = "6667";

if (fork() == 0) {
    &koneklah($serverirc, $preet, $channel, $jeneng);
}
else {
    exit(0);
}

sub koneklah(){
my @tukang_pv;
my ($serverirc, $preet, $channel, $jeneng) = @_;
    $ToCkeT = IO::Socket::INET->new(PeerAddr => "$serverirc",PeerPort => "$preet",Proto => "tcp") || die "Ra Iso Konek!\n";
    $ToCkeT->autoflush(1);
    print $ToCkeT "NICK $jeneng\n";
    print $ToCkeT "USER cantik bot *  : tester\n";
    print $ToCkeT "JOIN $channel\n";
    while ($DaTa = <$ToCkeT>) {
    my @Tanda = split /\:/, $DaTa;
    my @Tondo = split /\!/, $Tanda[1];
      if ($Data =~ /004/){
        last;
      }
      elsif ($DaTa =~ /^PING \:(.*)/) {
        print $ToCkeT "PONG :$1";
      }
      elsif ($DaTa =~ /PRIVMSG $jeneng :!join(.*)/) {
        print $ToCkeT "JOIN $1\n";
      }
    }
}