opendir BUFFER, "images/" or "Serious Headache! $!";
my @templist = readdir BUFFER;
closedir(BUFFER);

#Print the table of pictures.... jpg's and then gif's.............................
my @results;
my $count = 0;

print "<table border='1' cellspacing='10' cellpadding='4'>\n<tr>\n";
foreach(@templist) {
	if($_ eq "." || $_ eq "..") {
		#Do Nothing.
	} else {
		if(substr($_, length($_)-4, length($_)) eq ".jpg") {
			print "<td align='center'><img src=\"images/$_\" border=\"0\" alt=\"Loading...jpg\" width=\"40%\" height=\"40%\"><br />";
			print substr($_, 0, length($_)-4) . "</td>\n";
			$count++;
		} else {
			if(substr($_, length($_)-4, length($_)) eq ".gif") {
				print "<td align='center'><img src='images/$_' alt='Loading...gif' width=\"40%\" height=\"40%\"><br />\n";
				print substr($_, 0, length($_)-4) . "</td>\n";
				$count++;
			}
		}
	
		# Write the end of line...
		if($count == 4) {
			print "</tr><tr>\n";
			$count=0;
		}
	}
}
print "</tr></table>\n";