use vars::i '$VERSION' => 3.44; use vars::i '@BORG' => 6 .. 6; use vars::i '%BORD' => 1 .. 10; use vars::i '&VERSION' => sub(){rand 20}; use vars::i '*SOUTH' => *STDOUT; #### our $VERSION = 3.44; our @BORG = (6); our %BORD = 1 .. 10; our *SOUTH = *STDOUT; sub VERSION () { rand 20 }