@thefiles= readdir(IMD) or die "can't readdir: $!";

##</code><code>##

system qq(move /y "$defaultdir/$text" "$destinationdir") or die "can't move the file: $!";