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

##</code><code>##

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