$ perl -Mthreads -e 'async { local %ENV = %ENV; $ENV{CPU} = "/"; open my $PIPE, "echo \$CPU |"; print <$PIPE>}->join; $ENV{CPU}="MSWin"; system "echo \$CPU"'
x86_64
MSWin