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

Date_Init("TZ=EST5EDT");

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

my $date = '30-04-2010';

$date = UnixDate($date, "%e/%b/%y");

print "$date\n";
print scalar UnixDate($date, "%g"),"\n";
__END__
Hello, World...
20/Apr/30
Sun, 20 Apr 1930 00:00:00 EST