Help for this page
open (DATA, $txtfile)||die "cannot open $txtfile for reading";
open (OUT, ">$txtfile.redo");
open(DATA, ">", $txtfile) or die "File open error: $!";