use DBI;
use CGI;

&set_content();
&callFunctions();

sub callFunctions {
	my $xml = '&lt;hdsso&gt;&lt;hpid&gt;--------&lt;/hpid&gt;&lt;pin&gt;abcbs-hd&lt;/pin&gt;&lt;fname&gt;--------&lt;/fname&gt;&lt;mname&gt;&lt;/mname&gt;&lt;lname&gt;-------&lt;/lname&gt;&lt;dob&gt;-------&lt;/dob&gt;&lt;email&gt;-------&lt;/email&gt;&lt;ls&gt;----------&lt;/ls&gt;&lt;ws&gt;---------&lt;/ws&gt;&lt;/hdsso&gt;';
	
	use XML::Simple;
	$XMLref = XMLin($xml, suppressempty => '');
}

sub set_content {
	$q = new CGI;
	print $q->header( -type => 'text/html',-P3P => 'CP="NOI ADM DEV PSAi COM NAV OTRo STP IND DEM" policyref="/w3c/p3p.xml"');

	use CGI::Carp qw(fatalsToBrowser carpout);
	if ( open(LOG,">>errors.log") ) { carpout(LOG); }
}
1;