swuecho
1/28/2014 - 4:54 PM

import in perl

import in perl

use v5.16;
my $sub = sub {
    state $n = 5;
    return unless $n > -1;
    say $n--;
    __SUB__->();

};
$sub->();