Select Code to Download

#...
  open(PLAINTEXT,">Plain") || print "Error to write to the file";
...
  $plaintext = <PLAINTEXT>;
  close(PLAINTEXT);
#...

#...
$plaintext = "$server\|$login\|$password\n";
#...