Select Code to Download

use strict;
use warnings;
...
    };
    $print->();          # 0,1
}

use strict;
use warnings;
...
    $i = $_;
    my_print();          # 0,1
}

use strict;
use warnings;
...
foreach (0, 1) {
    my_print($_);          # 0,1
}