#!/usr/local/bin/perl -w

use CGI qw(:standard :html3);

#print "hello\n";

$locat = "../../htdocs/elghome/material_office.html";

print header, start_html;

open (FILE1, $locat) || die  ("Material_Office open failed: $!");
while (<FILE1>)
{
    $page .= $_;
}
close(FILE1);

print "$page\n";
print end_html;
##</code><code>##

    $locat = "www.nsn.org/elghome/material_office2.htm";
    open (HTMLP,$locat);
    while (<HTMLP>)
    {
         $pageht .= $_;
    }
    close(HTMLP);

##</code><code>##

    <hr>
    <p>$pageht
    <hr>