Copied commify from perlfaq5