open (VOL, "$ssh $filer aggr show_space $aggr |") || die "Cannot connect to $filer: $! \n";
 while (<VOL>)
        {
         chomp (my $r3="$_");
         my @parts = split /\n\n/,$r3;
         for my $part (@parts)
         {
          next unless $part =~ m!^\s*Volume!;
          print ("Habe: $part\n");
         }
        #print ("Lese $r3 \n");
        } # end while VOL
close (VOL);