[Perl] やばいコード

やばいコードをみつけた。実話。

以下のとおり。

---
if ( $emergency_flg ){
    # やばい
    $SUBJECT = "EMERGENCY!! $SUBJECT";
}
---

こんなん、コメント要らない。。
変数$SUBJECT は何故大文字にしているのかちょっと気になったけど、読まなきゃいけないものではなかったのでスルー。