use Net::OSCAR qw(:standard); 
$i_am_signed_in = 0; 
 
### Define sub for callback 
sub i_am_in 
{ 
	$i_am_signed_in = 1; 
} 
 
### New object 
$oscar = Net::OSCAR->new(); 
 
### Set callback to our sub 
$oscar->set_callback_signon_done(\&i_am_in); 
 
### Sign on 
$oscar->signon($screenname, $password); 
 
$time_signin = time();  ### Get current time 
while(!$i_am_signed_in && (time() - $time_signin < 10) )  
{ 
	### Sleep for 1 second intervals while I am not connected, for the next 10 seconds 
	sleep(1); 
 
	### do_one_loop processes incomming events (like the sign on one) 
	$oscar->do_one_loop(); 
} 
 
unless($i_am_signed_in) {die 'Could not sign in.';} 
 
### Rest of program ###

sub error 
{ 
	my ($oscar, $connection, $error, $description, $fatal) = @_; 
	die ("Error: " . $connection->{description} . "\n"); 
} 
 
$oscar->set_callback_error(\&error);

### Create hash to hold im request ids 
%im_request_ids = (); 
 
sub im_sent_ok 
{ 
	my($oscar, $to, $request_id) = @_; 
 
	if($im_request_ids{$request_id}) 
	{ 
		### Message was sent by me, and the time is logged there. 
 
		### Blank out the time, so the ID doesn't get checked 
		$im_request_ids{$request_id} = 0; 
 
		### Attempt to undefine it.  Not sure if this is appropriate or will work (double check) 
		### If it does work, it will keep the size of the hash down 
		undef $im_request_ids{$request_id}; 
	} 
	else 
	{ 
		### Doesn't look like I sent a message with that request id, error 
	} 
 
} 
 
$oscar->set_callback_im_ok(\&im_sent_ok);

### Send IM and catch the request ID 
$request_id = send_im($to, $message); 
 
### If the message was too long to send, $request_id will be zero 
unless($request_id > 0) 
{ 
	### Split up message, resend 
} 
 
### Use the request ID as a key in the hash, log the time the IM was sent 
$im_request_ids{$request_id} = time();

### Check every 30 seconds 
if ( int(time()/30) == (time()/30) ) 
{ 
	foreach $key (keys %im_request_ids) 
	{ 
		### If the time logged is > 0, and it's been over 120 seconds since the message was sent 
		if( ($im_request_ids{$key} > 0) && (time() - $im_request_ids{$key} > 120) ) 
		{ 
			### IM failed to send, error.  Probably disconnected. 
		} 
	} 
}