#!/usr/bin/env perl

use strict;
use warnings;

use IPC::System::Simple 'capturex';

my $p2t_exe = 'C:/cygwin64/bin/pdftotext.exe';
my $pdf_doc = 'test.pdf';

print capturex(
    $p2t_exe => qw{-nodiag -layout -enc UTF-8}, $pdf_doc, '-'
);