use strict;
use warnings;

##</code><code>##

perl -Mstrict -we ...

##</code><code>##

Use of uninitialized value in print...