Help for this page

Select Code to Download

Select or download this

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

Select or download this

$./delete_list_ver3.pl test.list test_master.1

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.
Cant open  Bad file descriptor at ./delete_list_ver3.pl line 17.