# perl test.pl    
                                                                          Use of uninitialized value in print at test.pl line 6.
BASE: