Shell Programming and Scripting

perl '-MPOSIX qw(strftime)'  -le'
    $last_date = "6/2/2009";
    @dt = split /\//, $last_date;
    print strftime( "%B %d %Y %I:%M%p", 0, 0, 0, $dt[1], $dt[0] - 1,
        $dt[2] - 1900 );
  '

use Date::Manip;
print ParseDate("6/3/2009");

    @dt = split /\//, $last_date; # build an array that contains the date elements:
                                  # + $dt[0] contains the month ... $dt[2] - the year.
    print strftime( "%B %d %Y %I:%M%p", 0, 0, 0, $dt[1], $dt[0] - 1,
        $dt[2] - 1900 );          # the month begin at zero, the year is given in years 
                                  # + since 1900, see perldoc POSIX | less -pstrftime
                                  # + for more information.