Select Code to Download

filesystem          kbytes   used     avail    capacity  mounted on
/dev/dsk/c0b0t0d0s4 12209400 5496486  6712914  46%       /home

sub parse_capacity {
   my ($df_output) = @_;
...
   }
   return $capacity;
}

($df_output =~ m[(\d+)%\s+/home$]) ? $capacity = $1 : $capacity = 'Mat
+ch Error';