# 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];
}