Lucky for you I am psychic.

What you need to do is take out the use warnings; and use the -w flag instead. Or upgrade your version of Perl.

Glad to have helped ;-)