>>もんちぃ
君が切れてどうする。質問してる側なのに・・・

tempファイル作ってリンク張ればいいやん。
(perlはしばらく書いてないので。嘘ソース＆flockも省略。意味はわかるやろ？）

open( OUT, ">file1.txt" ); print OUT "HTML1"; close( OUT );
open( OUT, ">file2.xtx ); print OUT "HTML2"; close( OUT );
print '<frameset cols="50%,*"><frame src="file1.txt"><frame src="file2.txt"></frameset>';