#!/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(<SEE>){

   #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;