Select Code to Download

use strict;
use warnings;
...
while(<DOG>){
print;}
close (DOG);

use strict;
use warnings;
use diagnostics;
...
open (DOG, ">not.txt") or die ("Cannot open not.txt");
print DOG "hello!";
close (DOG);