perl 5.8.8 fix