# Test 3 styles of die command
print "expect integers from 0 to 5:\n";
for ($i = 0; $i < 20; $i += 1) {
        print " $i\n";
        die if ($i >= 5); # prints file and line
        # die "hi\n" if ($i >= 5); # prints only message
        # die "hi" if ($i >= 5); # prints message and file and line
}