in reply to Checking environment smart solution

Read perlintro. 
err_msg( "Database Environment Variable 'FRUNEXT' Not Set: $!\n") unle
+ss $ENV{FRUNEXT} =~ /^ifx|msv|ora$/

[download]

In Section Seekers of Perl Wisdom