support perl-5.8.1