#!/bin/bash
perl -MO=Deparse,-p $1