use strict; use warnings; # to avoid purgatory
use HTTP::Date qw(str2time);
my $timestamp_local="20110905 142631";
my $seconds_since_epoch=str2time($timestamp_local, 'UTC');
print "$seconds_since_epoch\n".gmtime($seconds_since_epoch)."\n";