#!/usr/bin/perl
use strict;
use warnings;

#`/bin/echo "SNMP 3PAR DISK STATS start executed on: `date +%D' at '%l:%M:%S`" >> /var/log/snmp-3par-disk-stats.log`

push my @vluns,`ssh -l gmon 3par-S400 statvv -ni | awk '{print $1 }'`;
foreach my $vlun (@vluns) {
 if ($vlun ne "Press") {
   print "$vlun \n";
 }
 else {
 last;
 }
}


push my @vluns2,`ssh -l gmon 3par-E200 statvv -ni | awk '{print $1 }'`;
foreach my $vlun2 (@vluns2) {
 if ($vlun2 ne "Press") {
   print "$vlun2 \n";
 }
 else {
 last;
 }
}