Fix for perl 5.8