Select Code to Download

#!/usr/bin/perl

...
    "lives_ok test"
);
ok(1==1, "checkpoint 3");

-bash:perl$ perl dieonfail.pl
1..3
...
# Looks like you planned 3 tests but only ran 1.
# Looks like you failed 1 test of 1 run.
# Looks like your test died just after 1.