■ご購入商品名 |
EOF3;
print " Auction☆Ultimate\n\n";
print<<
|
■合計金額 |
EOF4;
print " 890円\n\n";
print "\n\n";
print<< |
■お名前 |
EOF8;
print "$kuu $name1\n\n";
print "\n\n";
print "\n\n";
print<< |
■ふりがな |
EOF5;
print "$kuu $name2\n\n";
print<< |
■E-mailアドレス |
EOF6;
print "$kuu $mail1\n\n";
print "\n\n";
print<< |
■通信欄 |
EOF7;
print "$kuu $com\n\n";
print "\n\n";
print<<
|