Select Code to Download

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