# Added example

my $have_zip = first { /\.zip\z/) } @uploads;
die "No zipped files to process" if ! $have_zip;