Actually, this works fine with Perl 5.10.1 too.