Select Code to Download

$date1 =~ /(\d\d)(\d\d)(\d\d)/
  or die "Invalid date format";
$time1 =~ /(\d\d):(\d\d)/
  or die "Invalid time format";

eval {
    my $ref = shift;
...
+e2[2]+100)};
};
print "-1\n" and exit if $@;