Select Code to Download

#!/usr/bin/perl
use warnings FATAL => 'all';
...
    print "doing something with $case".$/;
    die "random failure on process" if rand() > 0.7;
}

1 had interesting errors: random failure on interesting at /tmp/test.p
+l line 21.
2 had interesting errors: random failure on interesting at /tmp/test.p
+l line 21.
...
doing something with 18
18 had processing errors: random failure on process at /tmp/test.pl li
+ne 28.
doing something with 19