Select Code to Download

#!/usr/bin/env perl
use warnings;
...
print $fh "Time over , ".localtime(time)."\n";

close $fh;