#!/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 @_;}