opendir my $dh, 'directory' or die $!;
while (my $file = readdir $dh) {
  my $size = -s "directory/$file";
  ...
}