sub bin #($dezimal)
  {
  my $dezimal = shift;
  print "Aufruf von bin(",int($dezimal),")\n";
	if ($dezimal > 1)           # Abbruchbedingung
	  { bin(int($dezimal/2)); }    # rekursiver Aufruf
	print "Ruecksprung von bin: ", $dezimal % 2, "\n";	# Ausgabe i-te Stelle
  }
					
my $dez;

$dez = <STDIN>;
bin($dez);
print "\n";