#!/usr/bin/perl -l

use Date::Manip;

$date = "Wed Feb 18 2004, 11:03:45 AM EST";
print UnixDate(ParseDate($date),"%s");