Select Code to Download

#!perl -w 
use POSIX qw(strftime);
...
    $time2 = strftime('%b %d, %y %H:%M:%S', $m_raw, $d0_raw, $y_raw, $
+hh_raw, $mm_raw, $ss_raw);
    print "the formatted date time is: $time2 \n";

the date_raw is: 4/5/13
the m_raw is: 04
...

the loaded datetime variable is: 1365192540
the formatted date time is: Jan 07, 01 21:05:04