#!/agl/tools/perl/bin/perl
use strict;               # Notice these two 
use warnings;             # essential modifications!
my @a=qx (rsh -l sonaxisz 'source.login ; findbug -p | sort -u | %s server');
print '@a contains ' . scalar @a . "elements:\n", @a;\