my $time1 = strftime "%H:%M:%S", localtime;