$rc = sub { $? >> 8 };

# one way
system(@mysyscall) and die "@mysyscall returned ", &$rc;
# or
if (system(@mysyscall)) { die "@mysyscall returned ", &$rc };