use File::Find::Rule qw/ find rule /;
my @zips = find( 
    file => 
     name => '*.zip' ,
    in => 'C:\Users\vinayas1\Desktop\Automation',
 );