Personally, I tend to juse use "$ENV{SHELL}" to get at "$SHELL." Then you could do "if( exists $ENV{SHELL} )" instead.

... but all you need to make yours go is "our $SHELL" and you should be all set.