Help for this page
( my $test ) ? print 'c' : sub { print 'a'; print 'b' }->();
( my $test ) ? print 'c' : do{ print 'a'; print 'b' };