#!/usr/bin/perl -w
use strict; 

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = $year + 1900;
$mon++;
my $x = "";
if($hour > 12)
{
    $hour  = $hour - 12;
    $x = 'PM';
}
else
{
$x = 'AM';
}
print "$mday/$mon/$year $hour:$min:$sec $x\n";