#! perl

use File::Temp;
$File::Temp::KEEP_ALL = 1;

# Tempfile to store command output.
my $tf = new File::Temp();
my $tfname = $tf->filename;
print "$tfname";
#print $tf "HELLO";
system("date /t >>$tfname");