print "Content-type: text/html\n\n";
print "here we go again...";

&a;

sub a {
        BEGIN {
                eval ("use fakemodule;");
                if ($@) {
                        print "error happened $@";
                } else {
                        print "error didnt happen, do some stuff";
                }
        }
}
[download]

Considered by ikegami: Dup of Re^2: Why am I getting "premature end of script header"?
Unconsidered by Arunbear: reaping blocked by keep (and edit) votes; (Keep: 5, Edit: 3, Reap: 18)