#!/usr/local/bin/perl

opendir DIR, "." or die "Can't find directory: $!\n";

foreach ($_ = readdir (DIR)){

        open IN, $_ or die "Can't read file $_!\n";

        my @lines=<IN>;
        $name=@lines[0];

        foreach (@lines){
                        if (/Fail/){
                        print "$name\n";
                        }
        }
}