Help for this page

Select Code to Download


  1. or download this
    @originalList = <LISTFILE>

$originalList[0] = "ID"
$originalList[1] = "PIN"
  2. or download this
    open (ORGLIST, "<", $ARGV[1]);
open (BEEPON, ">>", "beep_on.list");
...

print "Items removed $i \n";
close (DELLIST);