use File::Find;

my $root_dir = '/files/misc/;

sub find_zip {
    print "Found zip file $_\n" if /\.zip\z/;
}

find ( \&find_zip, $root_dir );
[download]

find() traverses the directory tree under $root_dir and passes the name of every file in $_ to the find_zip() 'call back' sub. Note we use a sub reference as shown in find. The reference is indicated by the \ before the &

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Go with the inch long examples.

Below is some sample code I threw together.

#!perl

use strict;
use warnings;

use File::Find;

my @sourcedirs = ("." );
sub wanted
{
    my $filename = $File::Find::name;
    if ( $filename =~ m/\.zip$/i ) {  #is a zip file
       #do something
        print( "$filename\n" );
    }
}

print( "Looking for zip files in @sourcedirs\n" );
find( \&wanted,  @sourcedirs );
print( "---------Done-----------\n");
[download]

<cite>Just a tongue-tied, twisted, earth-bound misfit. -- Pink Floyd</cite>