#!C:/Program Files/Perl/bin/perl

use Net::SMTP;
use MIME::Lite;

my $Label;
my $TmpAdressTo;
my $TmpEmailAddressTo;

print FILE "\n********************** NEW RECORD ************************\n";

foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);

   # Un-Webify plus signs and %-encoding
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/<!--(.|\n)*-->//g;

   if ($allow_html != 1) {
      $value =~ s/<([^>]|\n)*>//g;
   }

   $FORM{$name} = $value;
   if ($name ne 'Submit')
   {
   	print FILE $name; 
	print FILE "=";
	print FILE $value;
	print FILE "\n";	
	print HTMLFILE "<TR>\n";
	print HTMLFILE "<TD>";
	print HTMLFILE $name;
	print HTMLFILE "</TD>\n";
	print HTMLFILE "<TD>";
	print HTMLFILE $value;
	print HTMLFILE "</TD>\n";
	print HTMLFILE "</TR>\n";
   }	
}

print HTMLFILE "</TABLE>";
print HTMLFILE "</BODY>";
print HTMLFILE "</HTML>";

close (FILE);
close (HTMLFILE);

my $emaillinks;
my $emailrechts;
($emaillinks, $emailrechts) = split(/@/, $email);
$cc_address = $emaillinks."\@".$emailrechts;