Select Code to Download

#! perl
use strict;
...

    return $mode + (1 << $status_shift + 4) + ($additional_status << 7
+);
}