Help for this page

Select Code to Download


  1. or download this
    use constant START_MINS => 180;
use constant PERIOD     => 20;
...
    my $mm = $minutes - $hh * 60;
    return sprintf "%02d:%02d", $hh, $mm;
}
  2. or download this
    03:01: 2
03:02: 2
...
03:06: 2
03:07: 2
03:08: 2