#!/usr/bin/perl -wT use strict; my $video_info; # 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, "/var/www/docs/$value") or $video_info="$!"; while(){ #put data from review into variable $video_info .= "$_"; } #close file close(SEE); #Now print out lots of HyperText Mark-up Language using # HTML::Template my $template = HTML::Template->new(filename => 'my.tmpl'); $template->param(info => $video_info); print $template->output; exit; #### Animetion Station > Video Review > Oh MY Goddess! Volume 1

Animetion Station

Video Review

 

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

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