Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

For PerlGuru.com

By: a guest on Feb 24th, 2013  |  syntax: Perl  |  size: 6.12 KB  |  views: 7  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. #!/usr/bin/perl
  2. #The above sets the location of the perl compiler.
  3.  
  4. use strict;
  5. use CGI;
  6. print header();
  7.  
  8. print <<HEAD111
  9. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
  10. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
  11. <head>
  12. <meta http-equiv='X-UA-Compatible' content='IE=EmulateIE7' />
  13. <title>BCPA page - MDTech</title>
  14.  
  15. <style type="text/css">
  16. .reg_num { width: 54px; height: 18px; }  
  17. .default { width: 200px; height: 18px; }
  18. </style>
  19.  
  20. <meta name="msvalidate.01" content="6698DB3266240D800A1DEFB2AEE5249D" />
  21. <meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
  22. <meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
  23. <meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
  24. <meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
  25. <!--[if IE 7]>
  26.       <style>
  27.       p {
  28.         line-height:18px;
  29.         padding-bottom:0px;
  30.       }
  31.       h1 {
  32.         font-size:20px;
  33.         font-weight:bold;
  34.         color:#272e34;
  35.         padding-bottom:0px;
  36.       }
  37.       h2 {
  38.         font-size:14px;
  39.         font-weight:bold;
  40.         color:#272e34;
  41.         padding-bottom:0px;
  42.       }
  43.     </style>
  44.   <![endif]-->
  45.   <meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
  46.   <meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
  47.   <meta name="google-translate-customization" content="4870ff0762da6435-906b3721014154a0-g256d826ced58f04d-9"></meta>
  48.  
  49. <link rel='stylesheet' type='text/css' href='http://cdn1.editmysite.com/editor/libraries/fancybox/fancybox.css?1348176505'></script>
  50. <link rel='stylesheet' href='http://cdn1.editmysite.com/editor/images/common/common-v2.css?buildTime=1348176505' type='text/css' />
  51. <link rel='stylesheet' type='text/css' href='http://mdtpages.atspace.cc/files/main_style.css?1348197132' title='wsite-theme-css' />
  52. <style type='text/css'>
  53. #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 {}
  54. #wsite-content h2, #wsite-content .product-long .product-title, #wsite-content .product-large .product-title, #wsite-content .product-small .product-title, .blog-sidebar h2 {}
  55. #wsite-title{}
  56. </style>
  57. <script type='text/javascript'><!--
  58. var STATIC_BASE = 'http://cdn1.editmysite.com/';
  59. var STYLE_PREFIX = 'wsite';
  60. //-->
  61. </script>
  62. <script type='text/javascript' src='https://ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js'></script>
  63. <script type='text/javascript' src='http://cdn1.editmysite.com/editor/libraries/jquery_effects.js?1348176505'></script>
  64. <script type='text/javascript' src='http://cdn1.editmysite.com/editor/libraries/fancybox/fancybox.min.js?1348176505'></script>
  65. <script type='text/javascript' src='http://cdn1.editmysite.com/editor/images/common/utilities-jq.js?1348176505'></script>
  66. <script type='text/javascript' src='http://cdn1.editmysite.com/editor/libraries/flyout_menus_jq.js?1348176505'></script>
  67. <script type='text/javascript'><!--
  68. var IS_ARCHIVE=1;
  69. (function(jQuery){
  70. 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)}
  71. if (jQuery) {
  72. if (jQuery.browser.msie) window.onload = initFlyouts;
  73. else jQuery(initFlyouts)
  74. }else{
  75. if (Prototype.Browser.IE) window.onload = initFlyouts;
  76. else document.observe('dom:loaded', initFlyouts);
  77. }
  78. })(window._W && _W.jQuery)
  79. //-->
  80. </script>
  81. </head>
  82. <body class='wsite-theme-light wsite-page-bcpa-page'>
  83. <div id="wrapper">
  84.     <div id="header">
  85.       <div id="sitename"><span id="wsite-title">MDTech</span></div>
  86.     </div>
  87.     <div id="navigation">
  88.       <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>
  89.     </div>
  90.     <div id="content-wrapper">
  91.       <div id="contents-body">
  92.         <div id="contents"><div id='wsite-content' class='wsite-not-footer'>
  93. HEAD111;
  94.  
  95. use CGI;
  96. use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
  97.  
  98. #For method=POST
  99. # Read the standard input (sent by the form):
  100. read(STDIN, $FormData, $ENV{'CONTENT_LENGTH'});
  101. # Get the name and value for each form input:
  102. @pairs = split(/&/, $FormData);
  103. # Then for each name/value pair....
  104. foreach $pair (@pairs) {
  105.   # Separate the name and value:
  106.   ($name, $value) = split(/=/, $pair);
  107.   # Convert + signs to spaces:
  108.   $value =~ tr/+/ /;
  109.   # Convert hex pairs (%HH) to ASCII characters:
  110.   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  111.   # Store values in a hash called %FORM:
  112.   $FORM{$name} = $value;
  113. }
  114.  
  115. print "Email: " . $FORM{"email"} . "\n\n";
  116. print "Reg_Num: " . $FORM{"reg_num"};
  117.  
  118. print <<FOOTER111
  119. </div>
  120.       <div id="contents-bottom"></div>
  121.      
  122.     </div>
  123.   </div>
  124.    
  125. <meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
  126. <meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
  127.  
  128. </body>
  129. </html>
  130. FOOTER111;
  131. exit;
clone this paste RAW Paste Data