Select Code to Download

conch:~% du -sk * | perl -MFoo -e k2m
  0.01M Foo.pm
  6.88M Mail
...
/dev/sd0f         1.89G    0.87G    0.93G    48%    /usr/guest1
/dev/sd0e         0.71G    0.38G    0.29G    56%    /usr/msen
mfs:25            63471      116    60181     0%    /tmp

package Foo;

...
sub b2g { filter_columns(1024*1024*1024, 'G') }

1;