Select Code to Download

while(<>) {
    my ($x, $y, $z) = (0,0,0);
...

    # do whatever
}

while(<>) {
    my @flds=split;
...

    # do whatever
}