package Module; use Data::Dumper; sub VERSION { my $class = shift; my $version = shift; require(sprintf("%s_%d.pm", $class, $version)); push @ISA, $class . '_' . $version; 1; } 1;