Select Code to Download

#!/usr/bin/env perl
use strict;
...
    my $t = $start + $hh * ONE_HOUR + $mm * ONE_MINUTE + $ss;
    print "$t\n";
}