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 pumpkin pie!
close IN;close OUT;
sleep or die;