#!/usr/bin/perl $screenname = "brutebot"; $password = "xxxxxxxxxx"; use Net::AIMTOC; &dostuff; sub dostuff { print "Connecting...\n"; my $aim = Net::AIMTOC->new; $aim->connect; print "Connected! Sending username and password...\n"; $aim->sign_on( $screenname, $password ); while(1) { open(FIL,"who.txt"); $notify = ; close(FIL); open(FIL,"message.txt"); $message = join('',); close(FIL); open(FIL,"still.txt"); $f = int(); close(FIL); if ($f) { $aim->send_im_to_aol($notify,$message); $count++; open(FIL,">count.txt"); print FIL $count; close(FIL); } sleep 5; } }