Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
print "\n" if ($running_on_terminal);

close IN;

Select or download this

my $pm = new ProgressMeter(-items => scalar @list);

...
    $pm->update(++$c);
}
$pm->finish;