#!/bin/perl
use CGI qw(:standard);
my $Name = param('Name');
$logfile = "logfile.txt";
open(REG ">>$logfile) or fail();
print REG "$Name\n";
close(REG);