Select Code to Download

nfs 1 active (followed by a variable number of words)
tempfs 2 active (followed by a variable number of words)
...
.
.
and so on

   local @ARGV = ("diskmon");
   local $^I = '.bak';
...
     m/^(\w+)\s+(\d+)$/;
     printf "$1 %d %s\n", exists $disk{$1} ? 0 : $2+$partition;
   }

nfs 1
tmpfs 6
ufs 2