fix brisk->new
rewrite in perl 5.8