#!/usr/bin/perl
 use strict;
 
 sub fak {
 	my ($max, $fak, $i);
 	$fak = 1;
 	$max = $_[0];
 	for($i=1; $i<=$max; $i++) {
 		$fak *= $i;
 	}
 	return $fak;
 }
 
 print "Die Fakultaet von 7 ist " . &fak(7) . "\n";

 #!/usr/bin/perl
 
 sub fak {
   $_[0] > 1 ? $_[0] * fak($_[0]-1) : 1;
 }
 
 print "Die Fakultaet von 7 ist " . fak(7) . "\n";