#!/mnt/pkgs/perl/perl5.8.0/bin/perl

$nstar = 100;

for $n (1 .. $nstar) {
   print "$n\t";
}