#!/usr/bin/perl require 'cgi-lib.pl'; &ReadParse( *form ); $name = $form{'yourname'}; $name =~ s/&/&/g; $name =~ s//>/g; #htmlを表示 print "Content-type: text/html\n\n"; print "\n"; print "こんにちは${name}さん
\n"; print "\n" __END__