Select Code to Download

#! 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.