( my $test ) 
  ? print 'c'
  : sub { print 'a'; print 'b' }->();