perl -e '$x=1;print 1 if $x or print 0'

##</code><code>##

my $x = 0;
&one if $x or &zero;
sub one {
    print "one";
    1;
}

sub zero {
    print "zero";
    0;
}