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