note nagalenoj Thanks. It works fine. <p>I need another clarification, Is it possible to access a variable in main package like below,</p> <code> package pq; . use constant { VAR => "main::$VAR" }; . . sub pr { print main::$VAR; print VAR; } </code> <p> I'm getting error. So I thought, 'As the constants are expanded when compilation, it isn't working as what I expected'. $VAR is a our variable in main package.</p> 812972 812973