I didn't have any problems running the code in linux/perl5.8.4 I assume the error has something to do with the script exiting while a thread is still running, but the $thr->join should prevent that.
Roses are red, violets are blue. All my base, are belong to you.