#sub function to write input file data into csv format
sub readout_file {
    ($filename) = @_;
    
    
    open my $fh, '<', $filename or die "can't open file:$!";
     while (<$fh>) {
        chomp;
        s/ /,/g;        ## OR s/ /,/g; if you want
        @linecolumns=split(',',$_);

        $filename =~ s/.*\///;
        $filename =~ s/\.[^.]+$//;
         push(@filenames, $filename);
    }
        foreach(@dir_names){
        (my $name,my $dir,my $ext) = fileparse($dir_names[1],'\..*');
        $subdirlevel1 = $name;
        $filename =~ s/.*\///;
         $filename =~ s/\.[^.]+$//;
        $subdirlevel2=(basename($filename));
		print $dir_names[3], $/;
        }
 }
 
#sub function to write xml format in output file
sub write_output{
       print $resultfile <<EOF
        <container type="folder" name="$subdirlevel1" expanded="True">
             <container type="folder" name="$subdirlevel2" expanded="True">
                <connection type="PuTTY" name="$filename">
                    <connection_info>
                       <name>$filename</name>
                      <protocol>SSH</protocol>
                      <host>$linecolumns[5]</host>
                      <port>$linecolumns[4]</port>
                       <session>Default Settings</session>
                      <commandline>$linecolumns[10]</commandline>
                      <description />          
                    </connection_info>
                     <login>
                     </login>
                     <password />
                     <prompt />
                    <login>
                    </login>
                    <timeout>
                      <connectiontimeout>1000</connectiontimeout>
                     <logintimeout>750</logintimeout>
                     <passwordtimeout>750</passwordtimeout>
                      <commandtimeout>750</commandtimeout>
                    </timeout>
                  <command>
                    <command1 />
                    <command2 />
                     <command3 />
                    <command4 />
                    <command5 />
                  </command>                    
                    <options>
                      <loginmacro>False</loginmacro>
                     <postcommands>False</postcommands>
                     <endlinechar>10</endlinechar>
                    </options>
                 </connection>
            </container>
			</container>
EOF
;
}