#!/usr/bin/perl -wT

use strict;
use CGI;

my $q = new CGI;

my $name = $q->param("name");

unless ($name) {
    error("No name given");
}

open DATA, ">>log.txt" or die "Can't open file: $!\n";
print DATA "$name\n";
close DATA;

sub error {
    my $error = shift;
    print $q->header("text/html"),
          $q->start_html("Error"),
	  $q->h1("Error"),
	  $q->p("$error"),
	  $q->end_html;
}