$ perl test.pl
Use of uninitialized value $file in scalar chomp at test.pl line 10.