Help for this page
#! perl use strict; ... seek $fh, 0, 0; print $fh "The final output."; close($fh) or die "Cannot close file '$filename': $!";
The final output.ox jumped over the unfortunate dog.