#!/usr/bin/perl
#Loads the CGI Module
use strict;
use CGI;
use HTML::Template;
# creates a new CGI object
my $page = new CGI;
# Create a new HTML:Template object
my $template = HTML::Template->new(filename => '..\Template\my.tmpl');
# This will print a standard HTML header
print $page->header;
# Grab a named CGI parameter
my $value = $page->param("video");
#Now print out lots of HyperText Mark-up Language using
# HTML::Template
$template->param(text => $value);
print $template->output;
exit;
####
####
open(SEE, "< ../$value") or die "The File could not be opened.";