perl -e "print scalar( 'a', 'b', 'c', 'd' );"