I've used:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
my $time = localtime;
print "$time";
[download]

to print out time on a 2kServer before