Perl's if and unless operators, which can also be postfixed, eg:

  die "can't be negative" unless $i >= 0;

Perl is full of usability features, like <> for reading input, inline literate coding annotations, implicit $_.