Perlで9行でP2P

MoleSter - a tiny file-sharing application
<http://ansuz.sooke.bc.ca/software/molester/>
(via <http://tabesugi.net/memo/cur/c2.html#151315>)

9 lines totalling 625 characters

ローカルでいくつも起動して、端から端までファイル転送してみた。
なるほどこれは面白い。みんな夢中になるわけだ。

ソースコード:
<http://ansuz.sooke.bc.ca/software/molester/molester>
小さいソースだと見通しが良く仕組み分かりやすいので嬉しい (ref.
[2004-12-08-3])。
ソースから得た知見：

&$3($3,$4,$5);

そうか、関数名も変数で指定できたんだった。
その場しのぎプログラミング[2003-12-09-3]で使おっと。