Select Code to Download

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

my $x = 0;
&one if $x or &zero;
...
    print "zero";
    0;
}