#!/usr/bin/perl

sub dodir {
opendir(DIR,$_[0]);
my $dir = $_[0];
if ($dir !~ /\/$/) { $dir .= "/"; }
my @List=readdir(DIR); 
closedir(DIR);
splice(@List,0,2);
foreach $file (@List) {
my $file = $dir.$file;
if (-d $file) { dodir($file); }
else { $totsize += (-s $file); }
 }
}
dodir($ARGV[0]);
print "Reading $ARGV[0]\n";
print $totsize," bytes\n",($totsize/1024)," Kilobytes\n",($totsize/(1024*1024))," Megabytes\n";