Ported to Perl 5.8