Select Code to Download

if( (-f $file) and ( ! link( $file, $new ))  ) {
    warn "Can't link $file to $new: $!\n";
...
} else {
    $did= 'ln';
}

use File::Path        qw< make_path >; # this should be added at the t
+op

...
        }
    }
}