#!/usr/bin/perl -wT my $http_host = $ENV{'HTTP_HOST'}; use strict; print "Content-type: text/html\n\n"; print < THIS PAGE UNDER CONSTRUCTION :)
So that one day it may serve a purpose!

END_OF_PAGE opendir (DH, "./"); readdir(DH); readdir(DH); my $request_uri = $ENV{'REQUEST_URI'}; my $address; my $thumbnail; my $i; my $rating; while (defined($address = readdir(DH))) { if($address =~ /(\.jpg|\.gif)/){ $rating = substr($address,0,1); print ""; print "\n"; } } print <

My Rating:
«
«
«
«
«
«
«
«
«
«
END_OF_PAGE closedir(DH);