Hola,
Bueno alli va otra pregunta, ya que no he encontrado nada por el foro ni google
use File::Copy;
copy("$file","$ficheroFinal") or die "Copy failed: $!";
porque $ficheroFinal contiene una parte del $file pero no toda? :( es algo muy raro no lo entiendo, y siempre se queda en la mismo sitio