Select Code to Download

my @l_test = (1,2,3,4,5,6,7);
my $found;
...
  print $l_rec;
}
print qq{\nskipped 4\n} if $found;

my @l_test = (1,2,3,4,5,6,7);
my ($found, $bad);
...
}
die qq{8 found\n} if $found;
die qq{high number found\n} if $bad;