1package E; 2 3# This is a good class, but not a driver 4 5use strict; 6 7use vars qw{$VERSION}; 8BEGIN { 9 $VERSION = '0.01'; 10} 11 12sub dummy { 1 } 13 141; 15