#!/usr/bin/perl -w
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, "../$value");

###The Shtick for the name in the Title Bar

#split up the variable $value

($Directory, $File) = split(/\//, $value);

#Take the information from the split and split it up a little bit more

($Name, $Extension) = split(/\./, $File);

#More splitting

@Words = split(/_/, $Name);

#Join the formation from the previous split and make it useful

$Title = join(' ', @Words);

#Save the file to an array

@video_info = <SEE>;


#Now print out lots of HyperText Mark-up Language using
# HTML::Template
my $template = HTML::Template->new(filename => '../Template/my.tmpl');
$template->param(info => @video_info);
print $template->output;
exit;