#!/usr/bin/perl

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

my $q = new CGI;
my $name        = $q->param("Name")         || '';
my $firstname   = $q->param("Firstname")    || '';
my $street      = $q->param("Street")       || '';
my $nr          = $q->param("Nr")           || '';
my $code        = $q->param("Code")         || '';
my $city        = $q->param("City")         || '';
my $tel         = $q->param("Tel")          || '';
my $email       = $q->param("Email")        || '';

open(COMMENTS, ">>data.txt")
  or die "Open data.txt for concat failed: $!";

print COMMENTS join("|", ($name, $firstname, $street, $nr,
                          $code, $city, $tel, $email)), "\n";

close (COMMENTS);

#
# ouput to browser
#

print $q->header,
      $q->start_html('visualVIBES bioNET'),
      $q->h1('Your entry has been saved'),
      $q->hr,
      $q->end_html, "\n";