#sub function to write xml format in output file
sub write_output{
open ($resultfile, '>>', 'C:\Test\resultfile.dat') or die "Can't open file: $!";
	print $resultfile '<?xml version="1.0" encoding="utf-16"?>';
	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";
	print $resultfile <<EOF
<configuration version="0.1.1.2" savepassword="True">
	<root type="database" name="$dir_names[0]" expanded="True">
		<container type="folder" name="$dir_names[1]" expanded="True">
			<container type="folder" name="$dir_names[2]" expanded="True">
				<connection type="PuTTY" name="$filenames[0]">
					<connection_info>
					  <name>$filenames[0]</name>
					  <protocol>SSH</protocol>
					  <host>$linecolumns[5]</host>
					  <port>$linecolumns[4]</port>
					  <session>Default Settings</session>
					  <commandline>$linecolumns[9]</commandline>
					  <description />		  
					</connection_info>
					<login>
					 </login>
					 <password />
					 <prompt />
					</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>
EOF
;
print $resultfile "</root>\n";
print $resultfile "</configuration>\n";
#print "Output xml file has been generated successfully.. \n";
}