#!/usr/bin/perl

$a = -1;
while($a != 0) {
	print "Szám: ";
	$a = <STDIN>;
}