Select Code to Download

use strict;
use warnings;
...
    # why don't 0, 1 and 2 get printed??
    print $i, "\n";
}