#!/usr/bin/perl

use strict;
use Date::Manip;

my $old_date = 'Wednesday, May 20, 2009 2:09 PM';
my $new_date = UnixDate( $old_date, '%Y-%m-%d');

print $new_date;