perl一些特殊操作符

见：perl secret

}{是模拟END block的最后一行操作

$ perl -lne '}{print$.'

<~>是HOME环境变量 $ENV{HOME}