package Foo; our $test = 12345; package Bar; print $test; __END__ 12345 [download]
In reply to Re^2: Is 'use vars' really obsolete? by Anonymous Monk in thread Is 'use vars' really obsolete? by jnorden