For PerlGuru.com

#!/usr/bin/perl
#The above sets the location of the perl compiler.

use strict;
use CGI;
print header();

print <<HEAD111
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv='X-UA-Compatible' content='IE=EmulateIE7' />
<title>BCPA page - MDTech</title>

<style type="text/css">
.reg_num { width: 54px; height: 18px; }
.default { width: 200px; height: 18px; }
</style>

<meta name="msvalidate.01" content="6698DB3266240D800A1DEFB2AEE5249D" />
<meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
<meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
<meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
<meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
<!--[if IE 7]>
      <style>
      p {
        line-height:18px;
        padding-bottom:0px;
      }
      h1 {
        font-size:20px;
        font-weight:bold;
        color:#272e34;
        padding-bottom:0px;
      }
      h2 {
        font-size:14px;
        font-weight:bold;
        color:#272e34;
        padding-bottom:0px;
      }
    </style>
  <![endif]-->
  <meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
  <meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
  <meta name="google-translate-customization" content="4870ff0762da6435-906b3721014154a0-g256d826ced58f04d-9"></meta>

<link rel='stylesheet' type='text/css' href='http://cdn1.editmysite.com/editor/libraries/fancybox/fancybox.css?1348176505'></script>
<link rel='stylesheet' href='http://cdn1.editmysite.com/editor/images/common/common-v2.css?buildTime=1348176505' type='text/css' />
<link rel='stylesheet' type='text/css' href='http://mdtpages.atspace.cc/files/main_style.css?1348197132' title='wsite-theme-css' />
<style type='text/css'>
#wsite-content div.paragraph, #wsite-content p, #wsite-content .product-block .product-title, #wsite-content .product-description, .blog-sidebar div.paragraph, .blog-sidebar p, .wsite-form-field label, .wsite-form-field label {}
#wsite-content h2, #wsite-content .product-long .product-title, #wsite-content .product-large .product-title, #wsite-content .product-small .product-title, .blog-sidebar h2 {}
#wsite-title{}
</style>
<script type='text/javascript'><!--
var STATIC_BASE = 'http://cdn1.editmysite.com/';
var STYLE_PREFIX = 'wsite';
//-->
</script>
<script type='text/javascript' src='https://ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js'></script>
<script type='text/javascript' src='http://cdn1.editmysite.com/editor/libraries/jquery_effects.js?1348176505'></script>
<script type='text/javascript' src='http://cdn1.editmysite.com/editor/libraries/fancybox/fancybox.min.js?1348176505'></script>
<script type='text/javascript' src='http://cdn1.editmysite.com/editor/images/common/utilities-jq.js?1348176505'></script>
<script type='text/javascript' src='http://cdn1.editmysite.com/editor/libraries/flyout_menus_jq.js?1348176505'></script>
<script type='text/javascript'><!--
var IS_ARCHIVE=1;
(function(jQuery){
function initFlyouts(){initPublishedFlyoutMenus([{"id":"732580610550224581","title":"Home","url":"index.html"},{"id":"791199019507589116","title":"Software","url":"software.html"},{"id":"185665631450527889","title":"Contact Us","url":"contact-us.html"},{"id":"655691623107481862","title":"Register","url":"register.html"},{"id":"120377591448869403","title":"Windows 8 HOW-TOs","url":"windows-8-how-tos.html"},{"id":"383720836856858449","title":"HTTPS Mirror INFO","url":"https-mirror-info.html"},{"id":"970940401954682759","title":"How to install ooVoo","url":"how-to-install-oovoo.html"},{"id":"925835062994562531","title":"Subscribe for MDTech.us Newsletter","url":"subscribe-for-mdtechus-newsletter.html"},{"id":"664166098389600041","title":"MDT Certificate Authority","url":"mdt-certificate-authority.html"},{"id":"939902576679924408","title":"Visitor Map","url":"visitor-map.html"},{"id":"517608385647474105","title":"Install Teamviewer","url":"install-teamviewer.html"}],'590082422623526219',"<li class='wsite-nav-more'><a href='#'>more...</a></li>",'',false)}
if (jQuery) {
if (jQuery.browser.msie) window.onload = initFlyouts;
else jQuery(initFlyouts)
}else{
if (Prototype.Browser.IE) window.onload = initFlyouts;
else document.observe('dom:loaded', initFlyouts);
}
})(window._W && _W.jQuery)
//-->
</script>
</head>
<body class='wsite-theme-light wsite-page-bcpa-page'>
<div id="wrapper">
    <div id="header">
      <div id="sitename"><span id="wsite-title">MDTech</span></div>
    </div>
    <div id="navigation">
      <div id="navigation"><ul><li id='pg732580610550224581'><a href='http://www.MDTech.us/index.html'>Home</a></li><li id='pg791199019507589116'><a href='http://www.MDTech.us/software.html'>Software</a></li></ul></div>
    </div>
    <div id="content-wrapper">
      <div id="contents-body">
        <div id="contents"><div id='wsite-content' class='wsite-not-footer'>
HEAD111;

use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

#For method=POST
# Read the standard input (sent by the form):
read(STDIN, $FormData, $ENV{'CONTENT_LENGTH'});
# Get the name and value for each form input:
@pairs = split(/&/, $FormData);
# Then for each name/value pair....
foreach $pair (@pairs) {
  # Separate the name and value:
  ($name, $value) = split(/=/, $pair);
  # Convert + signs to spaces:
  $value =~ tr/+/ /;
  # Convert hex pairs (%HH) to ASCII characters:
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  # Store values in a hash called %FORM:
  $FORM{$name} = $value;
}

print "Email: " . $FORM{"email"} . "\n\n";
print "Reg_Num: " . $FORM{"reg_num"};

print <<FOOTER111
</div>
      <div id="contents-bottom"></div>

    </div>
  </div>

<meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
<meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />

</body>
</html>
FOOTER111;
exit;