Help for this page

Select Code to Download

Select or download this

use warnings; 
                my $count = 0;
...
        }
}
print "$count";