Select Code to Download

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

readline() on closed filehandle $DELLIST at ./delete_list_ver3.pl line
+ 12.
Use of uninitialized value $ARGV[1] in concatenation (.) or string at 
+./delete_list_ver3.pl line 17.
...
syntax error at ./delete_list_ver3.pl line 8, near ", >>"
syntax error at ./delete_list_ver3.pl line 9, near ", >>"
Unterminated <> operator at ./delete_list_ver3.pl line 10.