#!/usr/bin/perl -w
use strict;
use File::Basename;
use File::Copy;
my @sourceD = "i:/tmp";
my @targetD = "c:/temp";
move @{$_} foreach map { [ "$sourceD/$_", "$targetD/$_" ] } map {basename $_} <$sourceD/*.pl>;