>>693
eval

と言いたいところだが、 test3.txt の中身をいたずらされると怖いので、こんな感じで。

$namae = "100";
%data = ('namae' => $namae);
$test = "test3.txt";

open(TEST,"<$test");
print "Content-type: text/html\n\n";
while(<TEST>) {
s/\$(\w+)/$data{$1}/g;
print;
}