package main; BEGIN { my $isScript= ! caller(2); sub _isScript() { $isScript } } if( _isScript ) { require CGI; my $q= CGI->new(); # ... } undef &_isScript;