package main; require File::Basename; File::Basename->import( qw(basename) ); if( &basename( $0 ) eq &basename( __FILE__ ) ) { require CGI; my $q= CGI->new(); # ... }