Select Code to Download

open (DATA, $txtfile)||die "cannot open $txtfile for reading";

open (OUT, ">$txtfile.redo");

open(DATA, ">", $txtfile) or die "File open error: $!";