#!/usr/local/bin/perl
print qq!
玉光堂 会社概要
!;
$file = "upper_co.html";
open(TXT, $file);
@arr = ;
close(TXT);
print @arr;
$file2 = "m_gaiyou.txt";
open(TXT2, $file2);
@crr = ;
close(TXT2);
print @crr;
open(FH, "gaiyou.txt");
while ($data = ) {
print "$data
";
}
close(FH);
$file1 = "bottom_co.html";
#ファイルオープン
open(TXT1, $file1);
#ファイルの内容を配列@brrに格納
@brr = ;
#ファイルクローズ
close(TXT1);
#配列の内容を全て出力する。
print @brr;
exit;