my $name = ""; my $basename = Ox::File::basename($filename, ".pm"); require "$pckpath/Type/$basename.pm"; eval '$name = $'.$pck.'::Type::'.$basename.'::Name'; die "[$name]";