my $fac;

$fac = sub { 
    my ( $n ) = @_;
    return 1 if $n == 1;
    return $n * $fac->( $n - 1 );
};

print $fac->( 5 );