or download this
Use of uninitialized value $line in numeric eq (==) at C:\aperlphone\P
+honeListFinalX.pl line 9.
Use of uninitialized value $line in scalar chomp at C:\aperlphone\Phon
+eListFinalX.pl line 11.
...
Use of uninitialized value $line in split at C:\aperlphone\PhoneListFi
+nalX.pl line 12.
Use of uninitialized value $line in split at C:\aperlphone\PhoneListFi
+nalX.pl line 12.
Terminating on signal SIGINT(2)