$fr="$dirtoget$f";
...
$fw="$dirwrite$f";