sub main_program{
	my($self,$nick,$args) = $_[0];
	my $time = localtime(time);
	$self->send_im($nick,"The current time is: $time.");
}

1;