Help for this page
$wdir = File::Spec->catfile($cdir, $1); # Bad $wdir = File::Spec->catfile($cdir, "$1"); # Good, $1 is copied.