Versuch, ein Perl-Script abzubrechen

[Struppi]

Ich weiß mir leider nicht mehr zu helfen !

#!/usr/bin/perl -w
use strict;

NMS FormMail Version 3.14c1

use vars qw(......  $tname   .....);
use CGI;
BEGIN

Wieso der Begn Block, weißt du was der tut?

{
  $DEBUGGING         = 0;
      ............
  $query = new CGI;
  $tname       = $query -> param('name');

Hast du das Skript mal in der Konsole gestartet?
Es dürfte so überhaupt nicht laufen.

if ($tname ne "")
    {
     if ($tname != /^([a-zA-Z0-9\xE4\xF6\xFC\xC4\xD6\xDC\xDF])+$/)

Du meinst wahrscheinlich !~

Struppi.