windows-server-2003/inetsrv/iis/utils/dmdiffs/getdir

use File::Find;
use strict;

find( \&printer, @ARGV );

sub printer {
    printf("%s %d\n", $File::Find::name, -s);
}