Select Code to Download

#!/usr/bin/perl
use strict;
...
if(0): [0] 
do{}while(0): [1] 
do{}until(5): [0]