#!/usr/bin/perl -w
use Math::Pari;

my $len = $ARGV[0];
$len /= 60;
my $i = 5;
my $chaptime = "00:00:00.000";

while ( $i <= $len ) {
my $hr = $i / 60;
#my $min = Math::Pari::Mod($i, 60);
my $min = $i % 60;
$chaptime = $chaptime . "," . sprintf("%02u:%02u:00.000",$hr,$min);

$i+= 5;
}

print $chaptime;