perl -MList::Util=min,max