use IPC::Open3 qw( open3 );

open(local *TO_CHLD,     '<', 'nul')       or die;
open(local *FR_CHLD,     '>', 'MyLog.txt') or die;
open(local *FR_CHLD_ERR, '>', 'nul')       or die;

my $pid = open3('<TO_CHLD', '>FR_CHLD', '>FR_CHLD_ERR',
   'C:\AS_v5.8.6_Perl\bin\perl.exe',
   'D:\FinancialReports_PerlSource\PDS\output_test.pl',
);

waitpid($pid, 0);  # To wait for child to finish.