#!/usr/bin/perl -w

use strict;

use Eseries;

my @arr = Eseries::Eseries(10,3);

for my $x (@arr) {
    my $t = $x /1000;
    my $m = int($t);
    my $s = ($t - $m) * 60;
    printf("%d:%02d\n", $m, $s);
}