Select Code to Download

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

...

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

my $seen;

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