my $logfile = "file.log";
unless(-e $logfile) {#Create the log file if it doesn't exist
    open my $fc, ">", $logfile or die "Could not create file '$logfile' $!";
    close $fc;
}
open(my $fh, ">>", $logfile) or die "Could not open file '$logfile' $!";