In Serve.pm sub handler { my $r=shift; unless (scalar(keys %CORE::GLOBAL::config)) { die ("no config data loaded"); } # Code Always dies }