sub parse_capacity {
   my ($df_output) = @_;
   my $capacity;
   if ($df_output =~ m[(\d+)%\s+/home$]) {
      $capacity = $1;
   }
   else {
      $capacity = 'Match Error';
   }
   return $capacity;
}