Select Code to Download

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

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