#!/usr/bin/perl

# excuse.pl - serve up bofh-style excuses
#
# Last update: 990818 08:31:11, bobby@bofh.dk
#

BEGIN {
    eval {
	use Net::Telnet;
    };

    $no_excuse++ if ($@) ;
    
}

sub excuse {
    my $t = Net::Telnet->new(Host => "bofh.engr.wisc.edu", Port => 666);  
    $t->waitfor("/Your excuse is: /"); 
    my $reply = $t->get;
    return $reply;
}

1;