// BEGIN PERL SNIPET

sub factorial {

my $y = shift;

if ( $y > 1 ) {

return $y * &factorial( $y - 1 );

} else {

return 1;

}

}

// END PERL SNIPET