You need chomp to remove the newline from your password.

my $random_file = "/home/sites/site70/web/cgi-bin/i-merchant/admin/set
+up/ric.txt"; 

open (FILE, $random_file) or die $!;
my @LINES=<FILE>; 
close(FILE);

my $OTP = splice @LINES, rand @LINES, 1;
chomp $OTP;

open (FILENEW, ">$random_file") or die $!;
print FILENEW, @LINES;
close (FILENEW);

my $PPP = $OTP;
[download]

Also, if more than one process can access the file at the same time then you need to look at file locking.

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

  perldoc -q change line file

A.K.A. "How do I change one line in a file/delete a line in a file/insert a line in the middle of a file/append to the beginning of a file?"

-- Regards,
Helgi Briem
helgi AT decode DOT is

$random_file = "test.txt";

open (FILE, $random_file);
@LINES=<FILE>;
close(FILE);
srand;

# Choose a random line
#scalar(@LINES) is the number of elements in the array
$OTP = "$LINES[(int rand(scalar(@LINES)))]";

$PWFILE = $OTP;
open (FILENEW, ">$random_file");
foreach $LINES (@LINES) {
    if ($PWFILE eq $LINES){
    $LINES = ""
    }
  else
  {
      print FILENEW $LINES;
  }
}

close (FILENEW);

# If you want to remove the newline, I don't know much
# about html stuff...it may cause problems?
#chomp( $OTP );

$PPP = $OTP;
[download]

test
test1
test2
test3
test4
[download]