use POSIX qw(strftime);
$mtime = 1151492749;
$systime = localtime($mtime);
print"Systime=> $systime\n";

$now_string = strftime "%a %b %e %H:%M:%S %Y", $systime;

print"New stirng=> $now_string\n";

##</code><code>##

Systime=> Wed Jun 28 16:35:49 2006
Usage: POSIX::strftime(fmt, sec, min, hour, mday, mon, year, wday = -1
+, yday = -1, isdst = -1) at one.pl line 46.