use Date::Parse qw(str2time);

my $date       = 'Sun, 25 Apr 2004 16:08:05 +0200';
my $epoch_time = str2time( $date );