perlquestion kirk123 <p> Hi <br /> I am trying to update a text file. The error I am getting is: <code> Can't "next" outside a block at PersonalfrmList.pl line 59 </code> Here a snippet of my code: <code> open(IN,"c:\\h\CSSCS\\bin\\scripts\\ListofFile.txt") || die "Can't open ListofFile.txt:$!\n"; @lines = <IN>; close IN; my $change_count = 0; @lines = map{$change_count ++ if s/ORGANIZT-3FC930/CSSCS/sgi;$_ } @lines; next unless $change_count; open(OUT,">c:\\h\\CSSCS\\bin\\scripts\\ListofFile.txt")|| "Can't open file for writing:$!\n"; print OUT @lines; close OUT; </code><p> Can someone tell me what is wrong with my script?<br /> ---kirk </p> <p><small>20030811 Edit by [Corion]: Added formatting</small></p>