#!usr/bin/perl -w 

sub eingabe() 
{
	print "\nGeben Sie eine Zahl ein: "; 
	chomp ($eingabe=<>); 
}

sub pruefung()
{
	if ($eingabe < 10 && $eingabe > 0) 
	{
		print "\n\nEine Berechnung wird gestartet.\n";
		berechnung();
		entscheidung();  
	}
	else 
	{
		print "\nIhre Angaben stimmen leider nicht mit den Programmanforderungen ueberein.\n";
		entscheidung();    
	}
}

sub berechnung () 
{
	$durchlauf = 0; 
	do 
	{
		$zahl_neu = $eingabe + $durchlauf; 
		$quadrat = $zahl_neu ** 2; 
		print "\nQuadrat von $zahl_neu:	$quadrat\n"; 
		$durchlauf++;		
	}
	until ($durchlauf > 5);  
}

sub entscheidung ()
{
	print "\n************************************\n"; 
	print "\nWas moechten Sie als naechstes tun?\n"; 
	print "\n<1> Nochmal versuchen \n<2> Programm beenden\n"; 
	print "\nIhre Entscheidung: ";
	chomp ($wahl=<>);
	if ($wahl eq 1) 
	{
		eingabe(); 
		pruefung(); 
	} else 
	{
		print "\nSchade, dass Sie das Programm beenden wollen.\n"; 
		print "\nCopyright: Margarita Miagkova\n";
	} 	  
} 


$einleitung = <<HERE_TEXT; 

*****************
Quadratberechnung
*****************

HERE_TEXT

print $einleitung; 
eingabe(); 
pruefung();