use TestModule; print "I am exiting now.\n"; #### package TestModule; our $x = 0; $DB::single = 1; our $y = $x + 1; our $z = $y ** 3; sub blah { "blah!" } 1;