$x = 0; my $d = Delay::new { $x }; print $d; # prints 0 $x = 7; print $d; # prints 7 (sollte 0 sein)