Ups, I did not read it right, the first time:

use HTTP::Date;
print str2time('01-01-2004');
[download]

scalar(time);