japhy% perl -MO=Deparse program_name