Select Code to Download

use strict;
use warnings;
...
    write_log("$fff");
}

my $input = "$contilog";

#my $input = "$cwd"."\\input1.txt";

open my $fh, '<', $input or die "unable to open file: $!";

...
    return $string;
}