#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;
use Date::Manip qw(ParseDate UnixDate);



while (<IN>) {
    $date = ParseDate($_);
 
    if (!$date) {
        warn "Bad date string: $_\n";
        next;
    } else {
        ($year, $month, $day, $hour, $min ) = UnixDate($date, "%Y", "%m", "%d", "%H", "%M");
        print "Date was $month/$day/$year/$hour/$min\n";
    }
}