#!/usr/bin/perl
use Net::Telnet ();

# Define connection parameters
my $t = new Net::Telnet (Timeout => 10, Port => 666);
$t->open("towel.blinkenlights.nl");

# Wait for the excuse
$t->waitfor('/The BOFH Excuse Server ===\n/i');

# Print it
print $t->getline;