Select Code to Download

use warnings;


...
print $fh ("Time over , $timestamp\n");

close $fh;

example:
9910 abc
 , Tue Sep 13 04:44:33 2016 , Alive