das problem war, dass $#ARGV den letzten Index des Arrays @ARGV zurueckgibt... wenn da ein Wert drinnen ist, ist der 0... wenn @ARGV leer ist, ist der -1...
also entweder ... $#ARGV == -1 oder, wie GwenDragon vorschlug, scalar(@ARGV) == 0 verwenden:

Das folgende gilt immer (und wenn nicht, erschlage den Programmierer, der den Code geschrieben hat... es waere kein Verlust fuer die Welt...siehe die Variable $[ in perldoc perlvar)