use Env;
use strict;

if ( defined $SHELL) {
        print "$SHELL\n";
}
root@whitebox:/tmp# perl testEnv.pl
/bin/bash