Select Code to Download

sub new {
    my $class = shift;
...
    bless $data, $class;
    return $data;
}

$package = WM::Install::Table::ArchiveTbl->get_pkgname();