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