Select Code to Download

use strict;
use warnings;
...
my @b = glob(qq{$path/mp_[0123456789]*.dat
                $path/md_[0123456789]*.dat});
print scalar(@b), "\n";

*** glibc detected *** perl: double free or corruption (!prev): 0x09ca
+5390 ***
======= Backtrace: =========
...
b77ea000-b77eb000 rw-p 0001e000 08:01 12755028   /lib/i386-linux-gnu/l
+d-2.13.so
bf9cf000-bf9f0000 rw-p 00000000 00:00 0          [stack]
Aborted

==26288== Invalid write of size 4
==26288==    at 0x4029C3E: memcpy (mc_replace_strmem.c:635)
...
==26288==    by 0x807B9DA: perl_parse (in
/home/martin/perl5/perlbrew/perls/perl-5.16.0/bin/perl)
==26288==