solange du in jeder Mail unten einen kommentar anhängst, wie man sich austragen kann, wird auch niemand probleme damit haben (am besten direkt mit Adresse zum Austragen angeben). Nicht so wie der eine Newsletter, den ich bekomme, bei dem man sich erst einloggen muß zum abmelden, ich mich aber dort nicht angemeldet hab und drum weder Benutzername noch pw kenne und dort die pw-zuschicken Funktion außer Betrieb ist und ich drum die Adresse auf meine Blacklist setzten mußte :( ..
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}