open(MENU, "\\\\servername\\sharename\\path\\tofile.inc") or die "Cannot open: $!";
while (<MENU>) {print}
close MENU;

##</code><code>##

#! C:/perl/bin/perl.exe -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::Simple;

my $webpage = get("http://servername/global/admin_menu.inc");
die "Couldn't get it: $!" unless defined $webpage;

print "Content-type: text/html\n\n";
print $webpage;