Use the new tssmokeperl.pl