my $header_line = "Prepend this\n";
unshift @ARGV, \ $header_line;
print while <>;