En Perl, l’équivalent du code Ruby que tu as posté :

use Path::Class;
my $dir = dir(__FILE__, ‘theme’);
while (my $file = $dir->next) {
next if $file->is_dir;
say $file if $file->stat->size > 10000;
}

Note:
$dir et $file sont des objets répertoire et fichiers respectivement, qui ont la bonne idée de renvoyer le path quand ils sont interprété en tant que chaîne.