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>