0
my @cat = qw(cat);
use IPC::Run qw(run timeout);
eval { run \@cmd, '<', "in.txt", \&out, \&err or die "cat: $?" };
#here why status variable is being done Binary Shift Right
my $status = $? >> 8;
내가 바이너리 전환이 이루어진 이유를 만들어 드릴 수 없습니다 펄 모듈 중 하나에 대한 다음 코드를 가로 질러왔다.