c:\test>perl -Mthreads 
-le"@t = map{
    async(
        sub{ chdir shift;sleep 3;print`cd`}
    ,$_)
} qw[c:\\ c:\\test c:\\test\\_Inline];$_->join for @t"

c:\

c:\test

c:\test\_Inline


##</code><code>##

system "cd $path && theProg @args";