perl -le "print $];"