sub wanted {
	if 

(!("$File::Find::dir"=~/}/)&&(/\.asf$|\.mp??$|\.avi$|\.exe$|\.wav$|\.zip$|\.mov$|\.rm?$|\.wma$/i)){
		print OUTFILE "$_\n";
		print "$_\n";
    	}