<perl>
get "Id==*", "personenKopie", "x";
my $pfad_alt="/var/www/xxx/html/files";
my $pfad_neu=$pfad_alt."/vereinsdb/personen";

{
 if ($p_bild_file)
 {
  my $neuesbild="vereinsdb/personen/".$p_bild_file;
  out "$p_bild_file ->  $neuesbild<br>";
  my $x= system("cp $pfad_alt/$p_bild_file $pfad_neu");
  mod "Id==$Id", ["p_bild_file", "$neuesbild"], "personenKopie";
  out " $x<br>";
 }
}
out runtime;
</perl>