{
    {
        open my $fh, q{>}, q{outfile.txt}
           or die qq{open: > outfile.txt: $!\n};
        print $fh qq{ ... };
    }
}