open(IN, "< $input");
open(OUT, "> $output");

print OUT "--- begin stuff ---\n";
print OUT <IN>;                 # <- this is the cool part
print OUT "---- end stuff ----\n";

close(IN);
close(OUT);