#! /usr/bin/perl
use warnings;
use strict;
use File::Find;

my @startDirs = qw(c:/temp d:/irgendwas);
&File::Find::find(
  sub {
    if (-f $_) {
      my $size = -s _; # _ ist kein tippfehler, sondern caching vom -f
      print "$size: $File::Find::name\n";
    }
  }, @startDirs);