package Foo; use constant BAR => 27; sub bar { return BAR }; 1;