perl や php でプログラムをお願いします。

Network CameraからFTPアップロードしたjpgファイルが複数階層のフォルダ内にあります。 このjpgファイルをプログラムを設置した直下の階層にある日付を元にしたフォルダ毎に移動させ、空になったフォルダを削除するプログラムの作成をお願いします。 以下の様なイメージです。 cam / a年b月c日 / a時 / フォルダ / フォルダ / フォルダ / フォルダ / フォルダ / A.jpg cam / a年b月c日 / b時 / フォルダ / フォルダ / B.jpg cam / a年b月c日 / b時 / フォルダ / フォルダ / フォルダ / フォルダ / C.jpg cam / x年y月z日 / x時 / フォルダ / フォルダ / フォルダ / フォルダ / X.jpg cam / x年y月z日 / y時 / フォルダ / フォルダ / フォルダ / Y.jpg cam / x年y月z日 / y時 / フォルダ / フォルダ / フォルダ / フォルダ / Z.jpg ↓ cam / a年b月c日 / A.jpg cam / a年b月c日 / B.jpg cam / a年b月c日 / C.jpg cam / x年y月z日 / X.jpg cam / x年y月z日 / Y.jpg cam / x年y月z日 / Z.jpg 任意の日付を元にしたフォルダ下の階層を確認し jpgが有れば日付を元にしたフォルダにjpgを移動し、更に下の階層を確認に行く・・・ jpgが有れば日付を元にしたフォルダにjpgを移動し、更に下の階層を確認に行く・・・ ※これを繰り返し・・・ 下の階層が無くなったところで、空になったフォルダを消去し、次の日付を元にしたフォルダを確認に行く・・・ jpgが有れば日付を元にしたフォルダにjpgを移動し、更に下の階層を確認に行く・・・ jpgが有れば日付を元にしたフォルダにjpgを移動し、更に下の階層を確認に行く・・・ ※これを繰り返し・・・ 全ての日付を元にしたフォルダ巡回が終わったところで終了。 以上の動作をおこなうプログラムを perl または php で作成をお願いしたく、よろしくお願いいたします。