my $env = system( qq ( whoami )) ;