#!/usr/bin/perl

use strict;
use warnings;

my @args;

@args = ("cciss_vol_status /dev/ciss0 > checkstatres.txt");
open RESULTS, "checkstatres.txt" || die "can't open datafile: $!\n"; 
while (<RESULTS>){ 
        'print $F[2]';
}