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

sub zero {
    print "zero";
    0;
}