#!/usr/local/bin/perl -w

# Or
$^W = 1;
# Or
BEGIN { $^W = 1 }