Filesystem  1k-blocks   Used Available Use% Mounted on
/dev/sdb2      614208 522868     59612  90% /
/dev/sdb3      614660 472372    110560  82% /usr
/devfs/scsi/host0/bus0/target8/lun0/part6
               711508 376520    298844  56% /build
/devfs/scsi/host0/bus0/target8/lun0/part7
               711508 574500    100864  86% /arc/1

##</code><code>##

# capacity($mountpoint)
#
# Returns the capacity (in 1024-byte units) of the
# filesystem at $mountpoint.
#
sub capacity
{
  my ($mp) = @_;
  my ($head, $line, $extra) = `df -kl $mp`;
  $line .= $extra if defined $extra;
  return (split ' ', $line)[1];
}