Select Code to Download

for (1 .. 4) {
    my $following = <DATA>;
    print $following;
}

print scalar <DATA> for 1 .. 4;