コマンド一発で、screen を起動して Catalyst の各種ディレクトリに移動

Catalyst Teamwork with Screen and VIM
この記事を見て、便利そうだと思ったので、即興ですが、こんなん作ってみました。
http://labs.miu.vc/svn/cooldaemon/env/bin/start_working_with_catalyst.pl
ちゃんと動作確認してませんが、手元の環境では問題なさげ・・・。

このコマンドを、Catalystディレクトリ名を引数にして実行すると screen を起動し、下記ディレクトリを開きます。
/path/to/MyApp-Web/
/path/to/MyApp-Web/lib/MyApp/Schema
/path/to/MyApp-Web/root
/path/to/MyApp-Web/lib/MyApp/Web/Controller

.screenrc を読んで、.screenrc に必要な内容を追加して、.screenrc.tmp に吐き出し、screen -c .screenrc.tmp を実行してます。
各 window にタイトルを付ける場合は、screenrc.tmp 吐き出しの際の screen の行を、screen -t [好きな名前] とかにします。

bind key にも対応しました。
例えば・・・ c で Controller のディレクトリに移動します。