use Time::Localtime;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                            localtime(time);
$year = $year + 1900;
$mon = $mon+1;
if($hour > 12)
{
	$hour  = $hour - 12;
	$x = 'PM';
}
elsif($hour == 12)
{	
	$x = 'PM';
}
else
{
$x = 'AM';
}
print sprintf("%02d", $mday).'/'.sprintf("%02d", $mon).'/'.sprintf("%04d", $year).' '.sprintf("%02d", $hour).':'.sprintf("%02d", $min).':'.sprintf("%02d", $sec).' '.$x;