Perl 5.8 compatibility