YAPC::Asia2013 Perl入学式で書いたコード