#!/usr/bin/perl

my @ranks = @ARGV;
unless (@ranks) {
	@ranks = split(/\n/,`/bin/ls gmon`);
}
print "will do @ranks\n";
for my $r (@ranks) {
	print "$r\n";
	system "test -e gmon.out && rm gmon.out ; ln -f gmon/$r/gmon.out ; gprof newsyn > gmon/$r/o";
}

