open INF,'</var/www/htdocs/cgi-bin/user.txt' or die "Can't open input file";
my $flag = 0;
while (<INF>)
{
   local($^I, @ARGV) = ('.bak', 'user.txt');
   while (<>) {
      if (/^(.+)(\|No)$/ && $flag != 1) {
         $flag = 1;
         print "$1|Yes\n";
         ($Name,$Pass,$Used) = split /\|/,$_,3;
      }
      else {
         print;
      }
   }
}
close INF;