#!/usr/bin/perl -w

use strict;
use Date::Manip;
my $FMT = '%Y-%m-%d %H:%M:%S (%A)';


foreach (@ARGV) {
    if (my $d = ParseDate($_)) {
	print "$_\t== " if @ARGV > 1;
	print UnixDate($d, $FMT), "\n";
    }
    else {
	print "$_: invalid date\n";
    }
}