in reply to bugs anyone?

Run your code from the command line with perl -c. This will reveal:

Please, please start your script with 'use strict;'. You'll save time, effort, and agony.

stephen