eval {
    my $ref = shift;
    my $date1 = shift @$ref;
    my $time1 = shift @$ref;
    die unless $date1 =~ /(\d\d)(\d\d)(\d\d)/;
    my @date2 = ($1,$2,$3);
    die unless $time1 =~ /(\d\d):(\d\d)/;
    my @time2 = ($1,$2);
    my $t;
    $t = timegm(0,$time2[1],$time2[0],$date2[1],$date2[0]-1,$dat
+e2[2]+100)};
};
print "-1\n" and exit if $@;