[_m3]

#!/usr/bin/perl

# Usage:
#        Parameter 1: Das zu kopierende File
#        Parameter 2: Das zu durchsuchende Verzeichnis
#        Parameter 3: Der zu suchende Verzeichnisname
# Verzeichnisse & Files muessen full-qualified angegeben werden !!!
# eg.: multicp.pl /tmp/script.pl /usr/local/apache/htdocs cgi-bin

require v5.6.1;
use strict;
use File::Find;
use File::Copy;

find( {bydepth => 1, wanted => \&nix, preprocess => \&multicp}, $ARGV[1]);

sub multicp {
	if($File::Find::dir =~ /$ARGV[2]$/) {
		if( not copy( $ARGV[0], $File::Find::dir) ) {
			print STDERR "$ARGV[0] couldn' be copied to $File::Find::dir\nGrund: $!\n";
		}
	}
	return (@_);
}

sub nix {;}