#!/usr/bin/perl -w

##</code><code>##

use warnings;

##</code><code>##

use Strict;
use File::Stat;
use Digest::MD5;

print "Enter the Path where all the data files are available:\t";

##</code><code>##

$sourcedir= <STDIN>;
chomp($sourcedir);

##</code><code>##

open(LOG ,">>D:\\prad\\log1.csv");

##</code><code>##

open my $fh, '>>', 'path/to/file' or die $!;