#! perl -slw
use strict;
use threads;

sub thread {
    my $output = '';
    open CMD, '-|', q[ perl -E"say( qq[$$:saying $_] ), warn( qq[$$:warning $_\n] ), sleep(1) for 1 .. 4" 2>&1 >nul ] or die $!;
    $output .= $_ while <CMD>;
    close CMD;
    return $output;
}

printf "Got\n'%s'\n", $_->join for map threads->create( \&thread ), 1 .. 4;

__END__
C:\test>t-junk
Got
'34456:warning 1
34456:warning 2
34456:warning 3
34456:warning 4
'
Got
'32700:warning 1
32700:warning 2
32700:warning 3
32700:warning 4
'
Got
'19172:warning 1
19172:warning 2
19172:warning 3
19172:warning 4
'
Got
'22176:warning 1
22176:warning 2
22176:warning 3
22176:warning 4
'