Make code work with Perl 5.8.x