$originalname = "AndererPfad/$originalname";
open(OUT, ">$originalname") #...