Select Code to Download

sub getTime{
    my ($filetimepointer) = @_;
...
 print "$year-$month-$day $hour:$minute:$second\n";
 }