#!/usr/bin/perl
use strict;
my $server;
my $usrallow = "/etc/opt/quest/vas/users.allow";
my @ssh;
my $line;

foreach $server(@ARGV) {
    print "getting cgrpfile from $server\n";
    @ssh = `ssh $server /bin/cat $usrallow  `;
    foreach $line (@ssh) {
        if ($line =~ /line/../\\Z/) {
        print $line;
        }
    }
   }