Name "main::DATA" used only once: possible typo at bk_remove.pl line 73.
readline() on unopened filehandle DATA at bk_remove.pl line 73.