Select Code to Download

    EXPR1 if $x;
    EXPR2 unless $x;

   ((sub {EXPR1}, sub {EXPR2})[!!$x || 0])->();

    foo($arg, @args) if $x;
    bar($arg, @args) unless $x;

    ((\&foo, \&bar)[!!$x || 0])->($arg, @args)