Fehler in Script, komische Fehlermeldung

[Stephan]

Hallo,

ich habe folgendes Script:

-----

#!/usr/bin/perl -w
use diagnostics;
################
$db = '/home/www/web1027/html/service-partner/outbound-clicks.db';
$useflock='yes';
$flocklock='2';
$flockunlock='8';

####################

$url=$ENV{'QUERY_STRING'};

####      Form Variables     ####

if ($url)
{
   open(DATA,"$db");
   @lines=<DATA>;
   close(DATA);
   open(DATA,">$db");
   if ($useflock eq 'yes'){flock DATA, $flocklock;}
   foreach $line (@lines)
   {
      ($URL, $count) = split(/|/,$line);
      if ($URL eq $url)
      {
         $count++;
         print DATA ("$URL|$count\n");$old="yes";
      }
      else
      {
         print DATA $line;
      }
   }
   if ($useflock eq 'yes'){flock DATA, $flockunlock;}
   unless ($old)
   {
      print DATA "$url|1\n";
   }
   close(DATA);
   print "Location: $url\n\n";
   exit;
}
else
{
   print "Content-type: text/html\n\n";
   print <<EOM;
<center>

Nowhere To Redirect To!! <a href="http://www.billig-urlauber.de">Back To Billig-Urlauber.de</a>

EOM

exit;
}

-----

und er sagt im Debugger das:

-----

Can't find string terminator "EOM" anywhere before EOF at
 /home/www/web1027/html/service-partner/redirect.cgi line 49 (#1)
    (F) Perl strings can stretch over multiple lines.  This message means
    that the closing delimiter was omitted.  Because bracketed quotes count
    nesting levels, the following is missing its final parenthesis:

print q(The character '(' starts a side comment.);

If you're getting this error from a here-document, you may have included
    unseen whitespace before or after your closing tag. A good programmer's
    editor will have a way to help you find these characters.

Uncaught exception from user code:
 Can't find string terminator "EOM" anywhere before EOF at /home/www/web1027/html/service-partner/redirect.cgi line 49.

-----

Ich fange erst mit CGI an und habe keine Ahnung...

Danke schonmal

Stephan