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

##</code><code>##

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

##</code><code>##

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