When you are using the strict pragma you have to declare your variables first. This is done using the
my function.
------------------------------------------------------------
Pragmas (perl 5.8.8) used :- strict - Perl pragma to restrict unsafe constructs
--Kevin