标签：Policy

Perl 实现 Flash 的 Socket Policy 服务器

因为公司为了节约流量，所以准备了一下测试 Flash 的 p2p 功能，简单使用 AnyEvent 来简单实现了一个这样的 socket 的服务器并且也能正常的工作了（有小 bug 但不影响使用）。