#!usr/bin/perl -w
 use strict;
 use warnings;
...

##</code><code>##

use warnings FATAL => 'all';