use strict;
use warnings;

sub getRandomLanguage() {
	my @languages = ("Perl", "Ruby", ".Net", "Python");
	
	# Wähle eine Zahl zwischen 0 und der übergebenen.
	# Übergebene wurde die Variable für AutoFlush,
	# die auf 1 Steht, na, klingelts? ;)
	my $randomIndex = rand($|);
	
	return $languages[$randomIndex];
}

$|++;
# AutoFlush aktivieren und OutputBuffering ausschalten
# durch erhöhren der Variable um 1 von 0 auf 1

print 'Ich nehmen...', "\n";
sleep(3);
my $language = getRandomLanguage();
print $language, "\n";