TIMTOWDI

#!/Perl/bin/perl

use strict;
use warnings;

opendir(image_data,"C:/testdir") or die "$!";

map{print scalar(reverse(substr(scalar(reverse "000".$_),0,7)))."\n"} 
+readdir image_data;

closedir(image_data)
[download]