#!/usr/local/bin/perl print "Content-Type: text/html\n\n"; open(FILE,"example.html") or webdie("Cannot open example.html: $!"); while(){ print; } close(FILE); exit 0; sub webdie { print "\n"; print "\n"; print "

Error: $_[0]

\n"; print "\n"; print "\n"; exit 1; }