sub pr { print main::FO1; }

##</code><code>##

use constant {
FO1 => "value"
};

##</code><code>##

sub pr { print +main::FO1; }