>perl -le"$n=3891; print $n%5;
1