#!/usr/local/bin/perl print "Content-type: text/html\n\n"; print "\n"; print "TEST\n"; print ""; #正しい使い方 $kingaku=1000; print "$kingaku"; print "円です
"; #間違った使い方 $kingaku=1000; print "$nedan"; print "円です
"; print "\n"; print "\n"; __END__