Help for this page
@thefiles= readdir(IMD) or die "can't readdir: $!";
system qq(move /y "$defaultdir/$text" "$destinationdir") or die "can't + move the file: $!";