Select Code to Download

#!C:\perl\bin\perl.exe -w

#Need to load these for bot use
...
print "Starting the BOT\n";
#Start the connection
$AIM->start;

sub main_program{
    my($self,$nick,$args) = $_[0];
    my $time = localtime(time);
...
}

1;

Use of uninitialized value in substitution (s///) at C:/Perl/site/lib/
+Net/AIM/Co
nnection.pm line 247.
Use of uninitialized value in transliteration (tr///) at C:/Perl/site/
+lib/Net/AI
M/Connection.pm line 248.
Use of uninitialized value in concatenation (.) or string at C:/Perl/s
+ite/lib/Ne
t/AIM/Connection.pm line 267.