#!/usr/bin/perl
# test.cgi


use CGI qw /:standard/;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;

my $db='/var/www/example/cgi-bin/dbase.txt';

print header,start_html('test');

print h3("Parameters");

my $name = param("name");
my $sname = param("sname");

open (FILE, ">>$db") or print STDERR "[$0] Could not open file! $!";
print (FILE "Name:$name,Surname:$sname\n");
close (FILE);

print "<br>name=$name.. surname=$sname>br>";

print end_html;