print $query->hidden(-name=>'test',
                     -default=>'');
my $testNr = $query->param('test');
 
my $status = open (READFILE,"<$testNr.txt");
my $zeile = <READFILE>;
my @zeile = $zeile;
my @empfaenger = split(/,/,$zeile);
my $derName = $empfaenger[1];
if (!$status){
    print "Fehler"
} else {
    my @umbenennen = $zeile;
    open(APPENDFILE,">>newsletter.txt");
        print APPENDFILE "@umbenennen";
        close (APPENDFILE);
        close(READFILE);
    unlink ("$testNr.txt");
    print "Hallo $derName, vielen Dank für die Newsletter-Bestellung!";
}