#!/usr/bin/perl -wl

use strict;
use Date::Parse;

my $from = 'Wed Dec 29 08:17:04';

print str2time($from);

__END__
1104329824