Select Code to Download

perl -wMstrict -E 'my $x=0; say $x||1; say $x//2;'
1
0

use warnings;
use strict;
...
sub do_something{
    print shift;
}