while (my $module = glob("*.pm")) { print "Found a module: $module\n"; }