perl -MO=Deparse
すりゃ分かる