#!/usr/bin/perl

use Term::ReadKey;

print "Felhasználónév: ";
chomp(my $user = <STDIN>);

print "Jelszó: ";
ReadMode('noecho');
chomp(my $pass = <STDIN>);
ReadMode(0);

print("\n");
if($user eq "vki" && $pass eq "titok") {
	print("Ok\n");
}else {
	print("Nem jó\n");
}