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

print header; 
print header, start_html ("XML File"), 

open(XMLFILE, "foo.xml"); 
while (<XMLFILE>){ 
   print;
}