Help for this page
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 ... } } }