#!/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 ""; print ""; print ""; print "
@a
";