#! /usr/bin/perl -w

use strict;
use warnings;

use File::Find;

my @directories = @ARGV ? @ARGV : ('.');

find(\&wanted, @directories);

sub wanted
{
	return unless /\.dll$/i;
	# Do something with $File::Find::name
}