use File::Find;

$dir1="//server01/x\$/users/userguy";
print "finding media files on $dir1\.\.\.\n";
find(\&wanted, $dir1);
sub wanted {
	if (!("$File::Find::dir"=~/}/)&&(/mp3$|avi$|exe$|mpg$|wav$|zip$/i)){
		print "$File::Find::dir/$_\n";
    	}
	
}