#!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");