$ perl 666463.pl Use of uninitialized value in concatenation (.) or string at 666463.pl line 23.