package Some::Interface; use strict; my $formType = "HR-Recruitment"; # hard coded my $lastVerion = "hr_re_v12"; # hard coded eval "use parent 'somepack::$formType::$lastVersion';"; sub new { my $c = shift; # some statements to check if any error in @_ # some statements to check access right my $wrap = $c->SUPER::new( @_ ); # some statements to add more attributes for $wrap return bless $wrap; } 1;