#!/usr/bin/perl
use warnings;
use strict;
use CGI;

my $cgi = CGI->new;

print $cgi->header(
        -type=> "text/html" );

print <<EOF;
<video width="320" height="240" controls>
<source src="/home/ubuntu_Workspace/c/video.mp4" type="video/mp4">
</video> 
EOF