#!/usr/bin/perl

use strict;
use warnings;

( my $test )
  ? print 'c'
  : print_me();

sub print_me {
    print 'a';
    print 'b';
}