#!/usr/bin/perl
use strict;
use warnings;
my $string;
print "Content-type: text/html\n\n\n";
open FILE, "/var/www/vhtdocs/userweb64767/herecomesmongo.com/static-ae.htm" or die "Couldn't open file: $!";
while (<FILE>){
 $string .= $_;
}
close FILE;
print $string;