#!/usr/bin/perl

print "Dobjunk újra? (i/n): ";
my $valasz = <STDIN>;

chomp($valasz);

if ($valasz eq "i") {
	print "Jöhet a dobás...\n";
}