Perl 初心者コーナー Part24

**nobodyさん** · 03/06/11 01:07

糞な質問で申し訳ありません。

subInputPage {
print "Content-type: text/html; charset='Shift_JIS'\n\n";
$fname = $FORM{'name'};
print <<END;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><body>
$fnameさん 
</body></html>
END
}

subResultPage {
print "Content-type: text/html; charset='Shift_JIS'\n\n";
print <<END;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>名前入力</title></head>
<body>
$fnameさん
</body></html>
END
}

↑ResultPage内の　$fname　が空になってしまうのですが、
InputPage内の　$fname　に格納したもの（これは表示される）を
ResultPageの中の　$fname　に受け継がれるようにするには
どうしたらいいのですか？