#!/usr/bin/perl -w use strict; BEGIN { ++$|; local(*FILE); open(FILE,'>>./logs/error.log'); open(STDERR, '>&FILE'); print(qq[Content-Type: text/html; charset=ISO-8859-1\n\n]); } BEGIN {push(@INC,'./modules')} use Blank; print(<<'__success__'); I can use!

 

I can use!

 

__success__ exit;