#!/usr/bin/perl
use strict;
use Win32;
use Win32::Process;

my $ProcessObj;
my $perl_command = '';

print "Starting thread logging test\n";

$perl_command = 'C:\AS_v5.8.6_Perl\bin\perl.exe D:\FinancialReports_PerlSource\PDS\output_test.pl >MyLog.txt 2>&1';

print "\n$perl_command\n";

Win32::Process::Create($ProcessObj,"C:\\AS_v5.8.6_Perl\\bin\\perl.exe",$perl_command,1,CREATE_NO_WINDOW,".");

print "Thread logging test completed\n";

exit;

##</code><code>##

#!/usr/bin/perl
print "\n\nThis is a test!\n\n";
exit;

##</code><code>##

::Test thread logging

@echo STARTED %time%

Perl D:\FinancialReports_PerlSource\PDS\PDS_SURE\ThreadLogTest.pl >ThreadLogTest.txt 2>&1 

@echo COMPLETED %time%

@Pause

##</code><code>##

Starting thread logging test

C:\AS_v5.8.6_Perl\bin\perl.exe D:\FinancialReports_PerlSource\PDS\output_test.pl >MyLog.txt 2>&1
Thread logging test completed