% perl -wle'package foo; our $bar = "10"; package main; print $foo::bar'
10