use DateTime::Format::Strptime;
use strict;

my $datetime = "2005-03-28 12:00:00";
my $parser   = DateTime::Format::Strptime->new(pattern => '%Y-%m-%d %H:%M:%S');
my $dt       = $parser->parse_datetime($datetime);
print $dt->epoch;

##</code><code>##

use DateTime::Format::HTTP;
use strict;

my $datetime = "2005-03-28 12:00:00";
my $dt       = DateTime::Format::HTTP->parse_datetime($datetime);
print $dt->epoch;