package Foo::Bar ;
  .....
  our $VERSION = "0.00" ;
  .....

##</code><code>##

  my $obj = new Foo::Bar (...) ;

##</code><code>##

  package Foo::Bar ;

  use strict ; use warnings ;

  our $VERSION = "1.01" ;

  use base qw(Foo);

  sub new { return bless [], shift ; } ;

  1 ;

##</code><code>##

  package Foo ;

  use strict ; use warnings ;

  our $VERSION = "0.11" ;

  sub version {
    my ($self) = @_ ;
    no strict 'refs' ;                  # NB: seatbelt off.
    return ${ref($self)."::VERSION"} ;  # "Symbolic Reference"
  } ;

  1 ;

##</code><code>##

  use strict ; use warnings ;

  use Foo::Bar ;

  my $obj = new Foo::Bar ;

  print $obj->version(), "\n" ;

##</code><code>##

  1.01