use POSIX 'strftime';

my $time = strftime("%r", localtime());

print $time,"\n";