Select Code to Download

use File::Copy;
use Cwd;
...

mkdir $dest or die "Can't mkdir '$dest': $!\n";
copy ($src, $dest) or die "Can't copy '$src' to '$dest': $!\n";