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

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

##</code><code>##

       Rate glob   <>
glob 7194/s   --  -0%
<>   7220/s   0%   --