#!/usr/bin/perl
use warnings;
use File::Copy;
use File::Find;
find(\&wanted, 'c:\\Pete');

sub wanted {
	if ($File::Find::name =~ /\.pl$/) {
		my $copyname = "c:\\folderb/$_";
		print "Copying $_ from $File::Find::dir to $copyname\n";
		copy("$File::Find::name","$copyname");
	}
}