#!/usr/bin/perl
use 5.018;
use strict;
use warnings;

for my $i ( 1 .. 2_000 ) {
  my $name = sprintf '%04d', $i;
  my @args = (
    'perl -E "for my $j (1..20) { print qq[PDF '.$name.' page $j\f\n]; }"',
    '|',
    'pcl6.exe -dNOPAUSE -sDEVICE=pdfwrite -sOutputFile=./pdfs/pdf_'.$name.'.pdf -',
  );
  
  system "@args";
}