Select Code to Download

#!perl

...
    my ($h2, $m2) = split(/:/, $t2);
    return 60*$h1 + $m1 <=> 60*$h2 + $m2;
}