use strict

use warnings

my $i = 0;

while (0);

do {} until 0;

for (0..0) {};

for (1..4) { print 2*$_, "\n", foreach (1..20);