#!/usr/local/bin/perl use DBI; use CGI; print "Content-type: text/html\n\n"; use CGI::Carp qw(fatalsToBrowser carpout); print "opening"; open( HTML, "<../index.htm" ) or die( "Cannot access HTML index.htm"); print "opened";