Google Sitemapのヘルプの中にサイドパーティ製のツールの一覧がある(英語だけど）。そこのなかにPerlというのがあって、クリックするとPerlソースが現れる。このスクリプトはgzipがないとだめですが。
このソースでやっていることは単純で特に説明は不要だが、このスクリプトの使い方は、最初の$sitepathにコンテンツが置いてあるローカル上のパスを設定する。$websiteにコンテンツが置いてあるURLを入れる。
それでスクリプトを実行すれば、sitemap.gzが作成されるようになっている。なのだが...
このPerlスクリプトはいくつかおかしなところがある。おそらく修正しないと思った通りの結果がでないのではないかと思われる。
まずは、$modを代入しているところ２つがあるのだが、１つはいらないはず。仕様通りにするのであれば、最初のほうを使うはず。だとすると、statで得たタイムスタンプを変換するためにlocaltime()を使っているのだが、それは間違えでgmtime()にしないとだめなはず（$modで+00:00になっているため）。
これで、仕様通りのファイルが出るはず。ただ、優先順位や更新頻度の設定はあまりにも単純なので、もうちょっと手を入れたほうがいいかもしれない。効率よくクロールしてもらうためにも、更新頻度はそれなりにちゃんと設定したほうがよさそうである（実際にクローラがどこまで対応してくれるかは不明であるが）。

TBSと楽天はそろそろ大詰め段階か？