Shut up Perl warning