#!perl

use strict;
use warnings;

my $testNr = 12345;
my $dateiName = "$testNr.txt";
die("Datei [$dateiName] existiert nicht") unless -e $dateiName;

open(READFILE, '<', $dateiName) or die('Kann Datei nicht öffnen: ' . $!);
my @alleZeilen = <READFILE>;
my $ersteZeile = $alleZeilen[0];
chomp($ersteZeile); # \n entfernen
my @empfaengerDaten = split(/\t/,$ersteZeile);
my $derName = $empfaengerDaten[1];

open(APPENDFILE,">>newsletter.txt") or die('Kann Datei nicht öffnen: ' . $!);
print APPENDFILE "$ersteZeile\n";
close (APPENDFILE);
close(READFILE);

die("Ungültiger Dateiname: [$dateiName]") unless $dateiName =~ m/^\d{1,90}\.txt$/;
unlink($dateiName); # XXX: Fehler Abfangen?

print "Hallo $derName, vielen Dank für die Newsletter-Bestellung!";