% perl -MO=Deparse <script>