package Module; my $constant = 'foo'; sub f { ... $constant ... } 1;