#!/usr/bin/env perl -w
#
# Sütiszörny

$suti = "";

while ($suti ne 'süti') {
	print 'Kérek egy sütit: ';
	chomp($suti = <STDIN>);
}

print "Hmmm, ez igen. Finom süti\n";