#!/usr/bin/perl
use strict;
use Date::Manip;

Date_Init("TZ=EST5EDT");

print "Hello, World...\n";

my $date = '30-04-2010';
die "Can't parse date" unless $date =~ s/(\d\d)\-(\d\d)\-(\d\d\d\d)/$3-$2-$1/;
$date = UnixDate($date, "%e/%b/%y");

print $date;