#!/usr/bin/perl

use strict;
use warnings;

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