copy("$f","$komp_dir/$f") or die "Copy failed: $!";