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 *.thumbnail.jpg  | perl -pe \"s/\.thumbnail\.jpg\$//\"|");

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


   my $orig_filesize = (-s $name . ".orig.jpg" );
	 my $orig_size = int($orig_filesize / 1024);
	 $orig_size .= "K";
	 my $med_filesize  = (-s $name . ".medium.jpg" );
	 my $med_size = int($med_filesize / 1024);
	 $med_size .= "K";

	 print qq!<a href="$base_url/$name.orig.jpg"><img align=top src="$base_url/$name.thumbnail.jpg"></a>\n!;
   print qq!$name : \n!;
	 print qq![<a href="$base_url/$name.orig.jpg">o</a> ($orig_size)\n!;
 	 print qq!<a href="$base_url/$name.medium.jpg">m</a> ($med_size)]\n!;
	 print qq!<br>\n\n!;
}

close(FILES);