perl -e 'print((sort(<*>))[1]);'