Danke, hat funktioniert. dachte dass es bei perl so wäre wie bei den meisten anderen sprachen das ein einzeiliger code nach ner ifschleife auch ohne geschweiften klammern stehen kann.

hab jetzt noch ein kleines problem. wie kann ich mit perl den momentanen ordner ansprechen in dem ich das programm aufrufe? bei php ist das mit localhost/dateiname. wie ist das bei perl?

open(DATEI, "</ ??? ")