sub f {
   my ($x) = @_;
   $block ||= sub { print "$x\n" };
   $block->();
}

f(4);  # 4
f(5);  # 4!!