this probably won't work on Perl 5.8.1 to 5.8.3