I'm a bit bored atm... 
#!/usr/bin/perl
open books, $0 or fail( ”exam”);
study; study; study;
my $boredom = growing( ”bored”);
read books, $again, 251;
fail( $again, $again, $again);
eval $again;

sub growing{ return ”@_ ”.”@_ ”.”@_ ”;}
sub fail{ print $boredom foreach @_;}

[download]

Replies are listed 'Best First'.
Re: bored
by Dietz (Curate) on Nov 25, 2005 at 18:21 UTC

    Bored?
    Just a suggestion, you could do a perl -pi.bak -e 's/\x94/"/g' bored.pl to make your code compile ;-)

    Update: corrected hex value, I could have sworn I saw a '\xE2'

[reply]
[d/l]

Back to Perl Poetry