use strict;
use CGI qw/:all/;

my $thumbs_url='./pics/thumbs/';
my $images_url='./pics/';
my @files;
my $file;

# main prog

get_list();
print_thumbs();

exit;

# subroutines

sub get_list{
  @files = glob("../pics/*.jpg");
}

sub print_thumbs{
  for(my $n = 0; $n < @files; $n++){
    $files[$n] =~ /.*\/(.*)(\..*)/;
    $file = $1 . $2;
    print h3($1) . "\n";
    print a(
      {-href => "$images_url" . $file},
      img({-src => "$thumbs_url" . $file, -alt => $file, -border => "0"})
    );
    print "\n" . p($1) . "\n";
  }
}