私perlは知らないけど、ちょっと添削してくださる？

#!/usr/bin/perl
print "Content-type: text/html\n\n";
print <<"EOF";
<HTML>
<HEAD><TITLE>『e-mobile番号』</TITLE></HEAD>
<BODY>
あなたのe-mobileの番号は
$ENV{'HTTP_X_UP_SUBNO'}
です。
</BODY>
</HTML>
EOF
exit ;
#