Select Code to Download

use autodie;

open(my $file1, ">", "testing1.txt") or die "Cannot open file 'testing
+1.txt' for writing: $!";