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

##</code><code>##

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

##</code><code>##

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