my $pageht = do {local $/;<HTMLP>};

##</code><code>##

$locat = "www.nsn.org/elghome/material_office2.htm";

##</code><code>##

my $locat = '/path/to/htdocs/elghome/material_office2.htm';
open FILE, $locat or die "can't read $locat: $!";