Syntaxfehler beim unerwarteten Wort

[fux]

Hallo,

Ich habe ein kleines Skript welches mir unverständlicherweise folgende Fehlermeldung ausgibt:

xxx@linux-xxxx:~/Dokumente/geekhero/test> ./geek-font.pl
./geek-font.pl: Zeile 3: Syntaxfehler beim unerwarteten Wort VERZ,' ./geek-font.pl: Zeile 3: opendir (VERZ, "./");'

Das Skript schaut so aus:

  
#/usr/bin/perl -w  
  
opendir (VERZ, "./");  
@Dateien = readdir(VERZ);  
closedir(VERZ);  
  
# Ersetzen  
foreach $comic (@Dateien)  
{  
 if (index($comic,".svg")>=0)  
 {  
  open (DAT, "<$comic");  
  @file = <DAT>;  
  close(DAT);  
  
  open (COMIC, ">$comic");  
  foreach $line (@file)  
  {  
   $line =~ s/Bitstream Vera Sans/WebLetterer Pro BB, Normal/gi;  
   print COMIC $line;  
  }  
  close(COMIC);  
 }  
}  

Hat jemand eine Erklärung für die Fehlermeldung ?
Danke