#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
use Text::CSV;
use File::Basename;

my $base_dir = 'C:\Test';  # put in your base directory 
my ($dirname,$filename,$line,$resultfile,@fp,$file);
my (@linecolumns,@dir_names,@file,@filenames);

find( \&wanted, $base_dir );

sub wanted {
    return if $_ eq '.' or $_ eq '..';
    if (-d) {
        print " >>> dive into: $_\n" if -d;
        $dirname = $_;
		push(@dir_names, basename($_));
    }
    else {
		#foreach($_){
		readout_file($_);  ## call subroutine readout_file
		&write_output;## call subroutine to print std template in output file
		print "Output file has been generated successfully.. \n";
		#}
	}
}