#!/usr/bin/perl use strict; use warnings; package My::Test; our $VERSION = 1.11; package My::Test::Print; #parent My::Test; sub printer { print "This is ". $My::Test::VERSION ."\n"; } My::Test::Print::printer() ."\n"; my $test = 1.23; print "test: $test \n";