#!perl package My::Test; our $VERSION = 1.11; package My::Test::Print; our $VERSION = 1.2; sub printer { print "This is ". $My::Test::VERSION ."\n"; } package main; my $test = 1.23; print "test: $test \n"; print My::Test::Print::printer() ."\n"; 1; #### test: 1.23 This is 1.11