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

my $base_url = "http://www.diff.net/summer2000/pics/" . $dir;

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

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

print "<br>\n";
	 print qq!<a href="$base_url/$name.orig.jpg"><img align=top src="$base_url/$name.web.jpg"></a>\n!;
#	 print qq!$name !;
	 print qq![<a href="$base_url/$name.orig.jpg">o</a>\n!;
 	 print qq!<a href="$base_url/$name.medium.jpg">m</a>]\n!;
	 print qq!<p>\n\n!;
}

close(FILES);