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