Select Code to Download

open (THEFILE, $theFile) || die "open $theFile $!\n";

while (<THEFILE>) {
   my @items = split (/|/, $_);
}
close (THEFILE);