use strict;
use Time::Local qw(timelocal);
sub get_time {
    my $date_time = shift;
    if ($date_time =~ /(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/) {
        my ($year, $mon, $day, $hour, $min, $sec)
          = (  $1,   $2,   $3,    $4,   $5,   $6);
        # Months are 0-based in this API.
        $mon =~ s/^0//;
        $mon--;
        return timelocal($sec, $min, $hour, $dd, $mm, $yyyy);
    }
    else {
        die "Invalid time '$date_time'";
    }
}