#!/bin/env perl
use strict;
use warnings;
use Net::SCP::Expect;

        my $cmd = qq{rpm -qa | grep cluster};
        print (" - Running ($cmd) \n");
        my @out = `$cmd`;
        my $err = $?;
        if ($err) {
                        print "Could not find cluster rpm's, err: $err\n";
                        exit 1;
        }
exit 0;