use autodie;

##</code><code>##

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