#!/agl/tools/perl/bin/perl
my @a=qx (rsh -l sonaxisz 'source.login ; findbug -p | sort -u | %s server);
print "Content-type:text/html\n\n";
print "";
for(@a){
print "| $_ |
";
}
print "
";
####
@a = ("A","B","C");
print "Content-type:text/html\n\n";
print "";
print map("| $_ |
",@a);
print "
";