#!/usr/bin/perl -w    #ohne das -w gibt es mir nen Fehler aus