This may sound silly, but... would clearing the screen work for you?

$c = qx{/usr/bin/clear};

for my $file (@list){

    # Do whatever testing you want here

    print "${c}Testing file: $file\nPassed: $p\nFailed: $f\n"
}
[download]

Another approach, if it's available to you, is to launch an xterm that's only 3 lines high by , e.g., 25 characters wide (or whatever you need to accomodate your text), then print your output in it with a preceding (but without a trailing) newline.

my $seen;

for my $file (@list){

    # Do whatever testing you want here

    print "\n" if $seen++;
    print "Testing file: $file\nPassed: $p\nFailed: $f"
}
[download]

I've used this approach a couple of times, and it works well.

-- 
Human history becomes more and more a race between education and catastrophe. -- HG Wells