Select Code to Download

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

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

next unless -f $f;