No modules? Tsk tsk. Well, if you insist, then you should read Directory Recursion. But, should you come to your senses, i recommend File::Find -

perl -MFile::Find -le 'find sub{$x+=-s$_},shift;print$x' some_dir
[download]

Update: oops, forgot about them pesky dots - actually, you need only check for . with File::Find:

perl -MFile::Find -le 'find sub{return if/^\.$/;$x+=-s$_},shift;print$
+x' some_dir
[download]

Now, why no modules?

jeffa

perl -le 'sub r{$r=shift;print(chop$r),r($r)if$r}r("noisrucer")'
[download]