use Data::Dumper;
print Dumper $o;

##</code><code>##

usage() if exists $o->{h};