sub get_arc_header {

        my $command=@_;

        #run command, get output

        my $c=`expect -c \"
       spawn /usr/bin/nmc -c \\\"$command\\\"
       expect
       sleep 15
       send \003
       \"`;
      #Return ^Time string
#my @arr=split (/\n+/, $c);
#      @arr = grep /\s*Time/, @arr;
#      @arr=split (/\s+/, @arr[0]);
#      my $ref=\@arr;
#      print Dumper($ref);
#compare commands output should not be equivalent
}

#ok (!eq_set (get_arc_header("show performance arc -x"),get_arc_header("show performance arc")));
get_arc_header("setup folder testvol/a property userquota");

"test.pl" 30L, 663C written
----------------

root@myhost:/volumes/regression-tests# ./test.pl
send: spawn id exp6 not open
    while executing
"send "
# No tests run!