Help for this page

Select Code to Download

Select or download this

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

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

Select or download this

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

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