PERL5DB="sub DB::DB{}" perl -d main.pl