質問
perlというかCGIなんですが教えてください。
下記ソースでtxtファイル（csvでちゃんと読み込めてるとする）を表示しようとしてます。

#!usr/bin/perl
my $no=$ENV{"QUERY_STRING"};
print "Content-Type: text/html¥n¥n";
print "<html>¥n<head>¥n</head>¥n<body>¥n";
open (NF,"Test.txt");
while(<NF>){
$data=$_;
chomp $data;
my ($datano) = split(/,/,$data);
$hantei = "NF" .$no;
if ( $no == $hantei){print "$no<br>";}else{print "error number<br>";}
print "</body>¥n</html>";
}
close(NF);

これで$no,$hanteiと関係なしに全部のデータを表示してしまいます。
原因がわからないです。
ご教授いただければ幸いです。