rename($newfile, $newfile.$filenumber) or
	  warn "Datei konnte nicht umbenannt werden. \n";	  
      }

      print "Neuer Dateiname: ", scalar $newfile.$filenumber, "\n";