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

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

    open ($resultfile, '>>', 'C:\Results\resultfile.txt') or die "Can't open file: $!";
    print $resultfile '<?xml version="1.0" encoding="utf-8"?>';
     print $resultfile "\n<!-- ********************-->\n";
    print $resultfile "<!-- *                    *-->\n";
    print $resultfile "<!-PuTTY Configuration Manager save file-All right reserved->\n";
     print $resultfile "<!-- *                *-->\n";
    print $resultfile "<!-- *******************-->\n";
    print $resultfile "<!-The following lines can be modified at your own risks->\n";
    opendir(IMD, $base_dir) || die("Cannot open directory");
    my @thefiles= readdir(IMD);
    next if @thefiles eq '.' or @thefiles eq '..';
     push(@thefiles, basename($base_dir));
    #print $thefiles[2];
    closedir(IMD);
    print $resultfile <<TTX
    <configuration version="0.1.1.2" savepassword="True">
        <root type="database" name="$thefiles[2]" expanded="True">
TTX
;
    find( \&wanted, $base_dir );
    print $resultfile "</root>\n";
    print $resultfile "</configuration>\n";

    
sub wanted {
    return if $_ eq '.' or $_ eq '..';
     if (-d) {
        print " >>> dive into: $_\n" if -d;
        $dirname = $_;
        push(@dir_names, basename($_));
    }
    else {
        $basedir1 = $dir_names[0];
        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";
     }
}