DateTime is everyone's friend!

use DateTime;
use DateTime::Format::Strptime;

my $parser = DateTime::Format::Strptime->new
                ( pattern => '%Y%m%d-%H%M%S' );
my $dt = $parser->parse_datetime( "20090719-074248" ) ;

warn $dt->epoch;
[download]