my $pwd = `pwd`;
chomp ($pwd);
my $dir = `basename $pwd`;
chomp ($dir);

open (FILES, "/bin/ls -1 Paris*.medium.jpg  | perl -pe \"s/\.medium\.jpg\$//\"|");

while (<FILES>) {
   chomp;
	 my $name = $_;
	 
	 print "\n\n\n";

print "<br>\n";
	 print qq!<a href="$name.orig.jpg"><img align=top src="$name.medium.jpg"></a>\n!;
	 print qq!<p>\n\n!;
}

close(FILES);