##
aleph:~ [17:41:57]$ perl -c 600859.pl
Name "main::br" used only once: possible typo at 600859.pl line 30.
600859.pl syntax OK
aleph:~ [17:42:06]$ perl 600859.pl >/dev/null # A better place!
Name "main::br" used only once: possible typo at 600859.pl line 30.
readline() on unopened filehandle br at 600859.pl line 30.