for my $server (@ARGV) {
    print "getting cgrpfile from $server\n";
    my @ssh = `ssh $server /bin/cat $usrallow  `;
    for (@ssh, '') {
        if (/^custom/ .. /^\z/) {
            print;
        }
    }
}