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

##</code><code>##

unless ( ($f eq ".") || ($f eq "..") )
{

##</code><code>##

next unless -f $f;