#!/usr/bin/perl -w

use Benchmark;

my $tstart = new Benchmark;
my $i = 2;

while ($ARGV[0]++ < $ARGV[1]) {
    $cmd = "/usr/bin/factor " . "$ARGV[0]" . "\n";
    system($cmd);
#    print "$cmd, $i\n";
}

my $tstop = new Benchmark;
my $tdelta = timediff($tstop, $tstart);

print "delta time = ", timestr($tdelta), "\n";
