--- a/htdocs/cgi-bin/send_n	Tue Feb 05 14:01:36 2013 +0100
+++ b/htdocs/cgi-bin/send_n	Tue Feb 05 15:58:11 2013 +0100
@@ -3,19 +3,40 @@
 use warnings;
 use strict;
 use LWP::UserAgent;
-use CGI;
+use CGI qw(-utf8);
 use CGI::Carp qw(fatalsToBrowser);
 use Net::SCP;
+use Template;
+use Cwd;
+use FindBin qw($RealBin);
+
+my $cgi = new CGI;
+
+if (!$cgi->param(".submit")) {
+   print CGI::header(-type => "text/html", -charset => "utf-8");
+
+   my $tt = Template->new({INCLUDE_PATH => "$RealBin/../templates"})
+      or die "Can't create template object: $Template::ERROR\n";
+
+   $tt->process("index.html", {
+         now => time(),
+         error => { firma => "xxx", 
+                    mail => "so nicht" },
+         firma => $cgi->param("firma"),
+   }) or die $tt->error();
+   exit 0;
+}
 
 my (
-    $uid,   $cgi, $feld, $feld4, $feld1, $feld2,
+    $uid,   $feld, $feld4, $feld1, $feld2,
     $feld3, $get, $url,  $ua,    $ub,    $req
 );
+
 my $x = 1;
 $uid = `uuidgen`;
 $uid =~ s/-//g;
 chomp $uid;
-$cgi = new CGI;
+
 
 #######################
 # Auswerten der Daten #