/////  MyConst.pm ////////////
package MyConst;
use Readonly;

Readonly::Scalar $const1 => 1;
///////// END ////////////  

##</code><code>##

//////  test.pl /////////
use MyConst;

print $const1;  
////////// END //////////