my $str = `who`;