#!/usr/local/bin/perl -- ;#----------------------------------------------------------------------------- $root_path = ""; $server_path = $ENV{'DOCUMENT_ROOT'}; ;#------------------------------------------------------------------------------ use Fcntl qw(:flock); push(@INC,$server_path.$root_path.'/common/lib/pl/'); require 'jcode.pl'; require 'mimew.pl'; #require 'unicode.pl'; require 'fold.pl-1.6.pl'; require 'text.pl'; require 'env.pl'; require 'str.pl'; require 'cookie.pl'; require 'jtime.pl'; require 'iodata.pl'; require 'backup.pl'; ;#------------------------------------------------------------------------------ print <<"END_OF_HTML"; Content-type: text/html; charset=EUC-JP
弊社の製品をご利用いただきありがとうございます。
以下の入力フォームに、必要事項をご記入のうえ、ご送信下さい。
なお、項目名に※のある項目は入力必須項目となります。未入力の場合は送信できませんのでご注意下さい。