Select Code to Download

open IN, "d1.txt" or die "No such file:$!\n";
open OUT, ">ABC.txt" or die;
...
        }
    }
}