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