Прошу помочь с задачей perl

[Elevan]

Добрый день, совсем недавно начал изучать perl, из-за чего не хватает знания команд и практики. Столкнулся с проблемой в решении задачи:

Нужно написать скрипт, который будет генерировать n случайных чисел в диапазоне от A до B. Но только четные числа будут напечатаны на экране. Числа n, A и B вводятся на клавиатуре при запуске скрипта

Пока у меня есть только это:

print "Количество чисел\n";
$n = <STDIN>;

print "Начало цепочки\n";
$A = <STDIN>;


print "Конец цепочки\n";
$B = <STDIN>;


for($A .. $B ) {
$tmp = int(rand($n));
print "$tmp\n" while $tmp % 2;
}

Буду очень благодарен, если сможете направить меня в нужно русло

[Black Fregat]

for(1 .. $n) {
    $tmp = $A + int(rand($B - $A + 1));
    print "$tmp\n" unless $tmp % 2;
}