#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(cmpthese);

cmpthese(
    20_000, {
        '<>'   => sub { my @results = <pending/*>; },
        'glob' => sub { my @results = glob('pending/*'); },
    },
);