[%Begin Unverified Perl my $datestring=""; $datestring=localtime(); SETVALUE("EndTimeStamp",$datestring); End Unverified%]
[%Begin Unverified Perl use POSIX qw(strftime); my $timestring=""; $timestring=strftime "%R", localtime; SETVALUE("L1TimeStamp",$timestring); End Unverified%]
[%Begin Unverified Perl use POSIX qw(strftime); my $timestring=""; $timestring=strftime "%I %M", localtime; SETVALUE("L1TimeStamp",$timestring); End Unverified%]
[%Begin Unverified Perl use POSIX qw(strftime); my $timestring=""; $timestring=strftime "%I:%M", localtime; SETVALUE("L1TimeStamp",$timestring); End Unverified%]