perl -Mstrict -E 'sub func {5}; my $c; my $results = ( $c=func() ? 1 : 2); say $c, "\t", $results'