$ENV{ PATH }  = '/bin:/usr/bin';
        # or whatever you need
    $ENV{ SHELL } = '/bin/sh' if exists $ENV{SHELL};

##</code><code>##

use CGI qw( :standard );
use CGI::Safer( POST_MAX=>1024*1024 );
my $q= CGI->new();