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