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