#!/usr/bin/perl5.003

#  A one line perl(1) program to df(1) a certain directory, convert the result
#  to megabytes, and append the 'Mb' to it. Try it out just by running it.
#  Future versions of pibu(1) will use scripts that will be invoked with
#  parameters taken from the config file, so that we won't need a different
#  version of this program for each fileset.


printf "%d Mb\n", (split(/\s+/, `df /dos`))[9] / 1024;