pl-sample-bt: fixed compatibility with perl 5.12.5.