= 新型コロナウイルス対策店舗のご紹介 =
※ 最新の情報は店舗までお問い合わせください。EOF } sub footer { print <<"EOF";
#!/usr/bin/perl #print "Content-type: text/html\n\n"; #print "
ok$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]
#$KOUSHIN[$XYZ]
#$KOUSHIN[$XYZ]
$KOUSHIN[$XYZ]