package A; # This is our driver class use strict; use vars qw{$VERSION}; BEGIN { $VERSION = '0.01'; } sub dummy { 1 } 1;