Select Code to Download

when is experimental at <script_name> line 10.
when is experimental at <script_name> line 11.

    while(my $line = <$fd>){
        for($line){
...
            $count++ when /failed/;     # count matching lines
        }
    }

    while (<$fd>) {
        print    if /Total/;      # print matching lines
        $count++ if /failed/;     # count matching lines
    }