#!/usr/bin/perl

my $szam;
do {
	print "Szám: ";
	$szam = <STDIN>
} while  ($szam != 0);