Select Code to Download

use feature qw/ :5.10 /; # or just: use feature "switch";
...
    when ('ora') { $$oracle=1; }
    default { err_msg( "Database Environment Variable 'FRUNEXT' Not Se
+t: $!\n") && exit }
  }