porting to Perl 5.8.8