Select Code to Download

...
use CGI qw/:standard/;
...
sub default {
  return "Sub default called";
}

default() unless exists $run_level{$level}; 
exit unless exists $run_level{$level}; # or add exit into default()
&{ $run_level{$level} };