use POSIX qw(strftime);
my $time = POSIX::strftime( "%T", localtime)