#!/usr/bin/perl # Loads the CGI Module use CGI; # creates a new CGI object my $page = new CGI; # This will print a standard HTML header print $page->header; # Grab a named CGI parameter my $value = $page->param(video); #Open up the file that contains the review of the video open(SEE, "../$value"); #Save it to an array @video_info = ; #Now print out lots of HyperText Mark-up Language < Animetion Station > Video Review > Oh MY Goddess! Volume 1

Animetion Station

Video Review

 

[Home]
[Gallery]
[Manga]
[Video Reviews]
[Links]
[Web Comic]
 @video_info

Battle Skipper Volume One by Ertain
Oh My Goddess! Volume One by Ertain
Oh My Goddess! Volume Two by Ertain
Oh My Goddess! Volune Three by Ertain
Oh My Goddess! Volume Four by Ertain
Oh My Goddess! Volume Five by Ertain
HTMLSTUFF #close file close(SEE);