$ perl -e 'my $env = system( qq ( whoami )) ;'