support Perl 5.8