Perl: How to capture STDOUT and the exit code

Capture the exit code but not STDOUT:
$status = system("command");

Capture STDOUT but not exit status:
$output = `command`;