#!/usr/bin/perl

use warnings;
use strict;

use Date::Parse;

my $date = q{Thu, 17 Sep 2009 11:09:02 GMT};
my $time = str2time($date);

print $time;


##</code><code>##

1253185742