my $ts = scalar localtime;