Shut up perl warning