my(@filenames, $directory);
opendir($directory, $directory_path)
    or die "opendir of $directory_path failed: $!\n";
@filenames = grep /\A\d+\.jpg\z/, readdir($directory);
closedir($directory);