#!/usr/bin/perl -w
use strict;
my $Final;
my $Good_Stuff;
if ($ENV{'REQUEST_METHOD'} eq 'GET') { #Check to see which one it is
$Good_Stuff = $ENV{'QUERY_STRING'}; #Split up the information
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $Good_Stuff, $ENV{'CONTENT_LENGTH'});
}
($Final) = split(/=/, $Good_Stuff,1); #Grab the filename
$Final =~ s/%(..)/pack("c",hex($1))/ge; #Just for fun
#Print out lots of stuff (this never works, though).
print "Content-type: text/html\n\n";
print <<'ENDMETA';
Animetion Station > Webcomic > $Name
ENDMETA
print <<"ENDHTML";
