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