#!/usr/bin/perl -w
use strict;

$/ = "\n"; $\ = "\n";
open my $fh, 'cciss_vol_status /dev/ciss0 |';
while (defined($_ = <$fh>)) {
    chomp $_;
    our(@F) = split(/:/, $_, 0);
    print $F[2];
}