#!C:\Perl\bin\perl -w

use strict;
use Digest::MD5 qw(md5_hex);
use IniFile;
use Term::ReadKey;

my $login="";
my $password="";
my $encryption = Digest::MD5->new;
my $ini = new IniFile('C:\Downloads\Perl\test.ini');

print"\n";
print"Login: ";
$login=<STDIN>;
chomp($login);
print"\n";
print"Password: ";
ReadMode 2;
$password = <STDIN>;
chomp($password);
ReadMode 0;
print"\n";

$encryption->add($password);
$password = $encryption->hexdigest;

my $logincheck = $ini->exists(['User','UserId',$login]);
my $passcheck = $ini->exists(['User','Password',$password]);

if($logincheck&$passcheck){
     print"UserId/Password Entered\n";
}
else{
$ini->put(['User','UserId',$login,-add]);
$ini->put(['User','Password',$password,-add]);
$ini->save();
}

##</code><code>##

Use of unitialized value in concatenation (.) at C:/Perl/site/lib/IniFile.pm line 280, <STDIN> line 2.