open(TMP, ">$tmp") || &error("$tmpが変！");
print TMP "$no<>$data1<>$data2<>$date\n";

open(DATA,"$file") || &error("$fileが変！");
while (<DATA>) {
print TMP $_;

記事に$noを振りたいんだけど$noを1づつ増やして
いきたいのですが・・・どうも上手くいきません。
Perlの先輩方々よいアドバイスをください・・・

感じとしては$fileの1行目を読み込んで
$noに+1をする感じでいいのでしょうか。。。