script/create_example.pl

#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use v5.16;

my $dir = $FindBin::Bin;

foreach my $file (qw/00001 00002 00003 00004 00005 00006 02439/) {
    my $call = 'perl ' . $dir . '/prepare_index.pl -i ' . $dir . '/../examples/WPD/AAA/' . $file . ' -o ' . $dir . '/../' . $file . '.json';
    print 'Create ' . $file . ".json\n";
    system($call);

    print 'Create ' . $file . ".json.gz\n";
    $call .= '.gz -z';
    system($call);
};