my $obj = Trk_dict->new('genre_dict7');
unless (defined $obj) {
    print $Trk_dict::last_error;    
}