Select Code to Download

# . . .
    my $comb = $var_a . $var_b;

    open (my $fh, '>', "c:\\my\\dest\\dir\\" . $comb . "found.txt")
        || die "failure to create" . $comb;
    print $fh $var_c, "content detail for file found\n";