=pod
Everything up to the cut is not parsed by perl
print while @blah;
my @slurp = <FH>;
=cut