blog.ps4.jp

#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "Hello
\n";
$count = 1;
print"$count\n";
$count = 100;
print"$count
\n";

%grades = ('yosida','A','hayasi','B','satou','C')
;
print"$grades{'hayasi'}\n";

$price = 6000;
if($price > 5000) {
print "$price is too expensive"};

ここまでやった。最後は5000より大きければ表示、小さいなら非表示。
円マークが変なスラッシュに変換されてる・・・