#!/bin/perl use CGI qw(:standard); my $file=param('file'); print header(); print < Example of Xinha
\n"; print " "; print < THIRD_HTML