enlightenment-module-forecasts/images/a.pl

#!/usr/bin/perl

sub main()
{
   opendir(my $dir, '.');
   while (readdir $dir) {
       if ($_ =~ m{.*\.png}) { 
print "FORECASTS_ICON(\"$_\", 10, 10, 110, 110, 1.0);\n";
}
   }
   closedir($dir);
}

main();