Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
...
8
9
10

#!/usr/bin/perl --
use strict; use warnings;
{
...
NO_MORE_LOOP:
    undef $count;
}