#!/usr/bin/perl
use File::Copy;

$src = "c:\temp (1)";
opendir DIR, $src;
while ($f = readdir(DIR)) {
  move("$src\$f", "\out");
}