my $obj;
eval {
    $obj = Trk_dict->new('genre_dict7');
};
if ($@) {
    print $@;    
}