# snippet...
open(TIMELOG,">timelog.txt") || die $!;
print TIMELOG time;
close(TIMELOG);