use strict; package cvWarn; # test warnings use Config::Vars; ro $cat = 'Mittens'; ro @dogs = ('Rover', 'Fido'); ro %hamsters = (Fang => 1, Reaper => 2, Death => 3); 1;