open IN, "turkey";
open OUT, ">stomach";
while (<IN>) {
    print OUT $_ or die "I'm full!";
}
close IN;
open IN, "pumpkin pie";
$/=undef;
print OUT <IN>; # who cares if we're full, there's always room for pum
+pkin pie!
close IN;close OUT;
sleep or die;

[download]

Replies are listed 'Best First'.
Re: thanksgiving dinner
by amrangaye (Friar) on Nov 26, 2004 at 14:15 UTC
    ++ bageler
    But wouldn't you prefer print OUT $_ or print "I'm full!";?
    Just a thought. :-)
[reply]
[d/l]
      Or
      print OUT $_ or warn "I'm full!";
      ;)

      --
      zejames
[reply]
      nah, usually I go clinically dead for a few minutes until pie is served ;)
[reply]

Back to Perl Poetry