http://www.perlmonks.org?node_id=546732

if ($i) { while ($i) { die(); } } do { my $last_thought && sleep($quietly); } until $i #am ne #quid nimis 'sad'; $i; #have defined($me);