In addition to Time::Local which jettero mentioned, you could also use Date::Calc, DateTime, and for good measure Date::Manip.

Parsing hint:

my $stamp = "100117104030";
my ($YY, $MM, $DD, $hh, $mm, $ss) = ($stamp =~ /^(\d{2})(\d{2})(\d{2})
+(\d{2})(\d{2})(\d{2})/);
[download]

The regex
    /^(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/
could surely be shortened to
    m{ \d{2} }xmsg


>perl -wMstrict -le
"my $stamp = '100117104030';
 my ($YY, $MM, $DD, $hh, $mm, $ss) = $stamp =~ m{ \d{2} }xmsg;
 print $stamp;
 print qq{$YY $MM $DD $hh $mm $ss};
"
100117104030
10 01 17 10 40 30
[download]

What are the "m" and the "s" for. :)

And in this case,
   m{ \d{2} }xmsg

could be
   /(\d\d)/g

It can be as easy as:

use DateTime;

$dt = DateTime->new(
    year       => 2010,
    month      => 2,
    day        => 3,
    hour       => 8,
    minute     => 15,
    second     => 0,
    nanosecond => 0,
    time_zone  => 'UTC',
);

print $dt->epoch;
[download]

Parsing your input string is left as an exercise for the reader.