opendir(my $dir, "/pr/perl_by_example") or die;
opendir(my $dir2, "/pr/book") or die;


while (my $file=readdir($dir)) {
	next if $file =~ /\./;
	copy("/pr/perl_by_example/$file", "/pr/book/") or die;

}