Select Code to Download

# untested

...
           $? >> 8
  }
}

open(<FH>, ">logfile.txt") || die "Doh: $!";

print FH "warning message";