#!/usr/bin/perl
		  
use strict; 
use warnings; 
use CGI qw(:standard); 
use CGI::Carp qw(fatalsToBrowser); 

print header; 
print start_html(-head=>meta({-http_equiv => 'Content-Type',
                              -content    => 'text/xml'}));

open(XMLFILE, "/my/upload/path/master.xml"); 

while (<XMLFILE>){ 
   print $_;
}