#!/usr/bin/perl -w
use strict;

print "5! = ", 
    Y(sub{ my ($proc, $n) = @_;
           ($n < 2) ? 1 : $n * $proc->($proc,$n-1) }, 5), "\n";

sub Y { my ($p, $x) = @_;
        $p->($p,$x);     }