#/usr/bin/perl

use strict;
use Net::Telnet;

print get_excuse(), "\n";

sub get_excuse {

        my $t = Net::Telnet->new(Host=>"bofh.jive.org",
                        Port=>666);
        while (my $line = $t->getline()) {
                next unless $line =~/Your excuse is: (.*)/;
                $t->close();
                return ucfirst $1;
        }
}