Select Code to Download

readline() on closed filehandle $LISTDEL at ./delete_list_ver3.pl line
+ 12 (#1)
    (W closed) The filehandle you're reading from got itself closed so
+metime
    before now.  Check your control flow.

#!/usr/bin/perl 
use strict; 
...
close $BEEPON; 
close $BEEPOFF; 
}