package TestModule; our $x = 0; $DB::single = 1; our $y = $x + 1; our $z = $y ** 3; sub blah { "blah!" } 1;