Select Code to Download

#!/usr/bin/env perl -l

...

print "Lines with successes: $lines_with{success}";
print "Lines with fails: $lines_with{fail}";

Lines with successes: 6
Lines with fails: 3