#!/usr/bin/perl   
use warnings;
use strict;

my $a = 9;
my $b = 5;
my $c = $a * $b;

my $dir    = 'D:/B';
my $output = 'Result_File.txt';

## Create the folder B in D drive & Save results as Result_File.txt
#  within B folder:

mkdir $dir or die $!;

open my $fh, '>', $dir . '/' . $output or die "Cannot open file '$output'.\n";    # Line 10

print $fh "\n WELCOME! Product of 9 & 5 = $c\n\n";

close $fh;