perlで、圧縮ファイル(lzh,zip.gz等)をアップロードした時に自動で展開してくれ
るスクリプトお願いします。ファイル構成は以下の感じです。

cgi/


    index.cgi
./style/
    default.css
    test.css
./image/
    mona.png
./uploader/
    index.cgi
    (その他ファイル)


./uploader/のCGIに圧縮ファイルがうpされると、自動で
./style/には「CSSファイル」 ./image/には「画像ファイル」がそれぞれ
展開される仕組み。

おながいします。