Simple Test

#!/perl/bin/perl use strict; use CGI qw(-oldstyle_urls :standard); use CGI::Carp qw( fatalsToBrowser set_message ); print "Content-type: text/html\n\n "; my $input_temp = "../html/main.html"; my $include1="../includes/header.html"; my $footer1="../includes/footer.html"; open(IN, $input_temp) || print "Can't open input file1: $input_temp\n"; while() { if ($_ =~ /\/) { $_ =~ s/\/$include1/; } if ($_ =~ /\/) { $_ =~ s/\/$footer1/; } } close IN; __MAIN.HTML__ Simple Test