If you read File::Copy's docs carefully you'll note that move will move the file to a directory if that's what the last argument is (hence an advantage over rename.) So, you can use something like:

move $_, $out for glob("$in/*.pl");
[download]