#!/usr/bin/perl 

use Image::Size;
opendir(THIS,".");
@imgs = grep(/jpg$/,readdir(THIS));
for (sort {$a cmp $b} @imgs){
#  ($h, $w) = imgsize ($_);
  $_ =~ s/\.jpg//;
#  print "birdquest|$_|$h|$w|&BirdQuest|www.birdquest.co.uk\n"
#  print "birdquest|$_|$h|$w\n"
print "$_\n";
}