not really perl, but useful to remember