#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);


$dir = "." ;

$kb = `du -s $dir`/2;

print "$kb KB used\n<BR><BR>";

$mg = `du -s $dir`/2/1024;

print "$mg MB used\n";