sub aixstorage {
  my $all_servers = 'path to my AIX list of servers';
  my @hosts=`cat $all_servers`;
  my $filename = '/tmp/aixstorage_report.rtf';
        foreach my $one (@hosts){
           chomp $one;
           my $ping = `ping -c 1 -w 1 $one 1>/dev/null 2>&1`;
           if (defined ($ping)) {
                my $SSH     ="/usr/bin/ssh -o ConnectTimeout=3 -o StrictHostKeyChecking=no";
                my $space  = $SSH root\@$one for i in lspv | awk '{print \$1}'; do bootinfo -s \$i; done | awk '{sum+=\$1}END{print (sum\/1024)}'}'"`; print "$space\n";
          }else {
                print "\nATTENTION: $one is offline\n"
          }
     }
}