#!/usr/bin/perl
use warnings;
use strict;

# use utf8; use open IN=>q(:utf8); use open OUT=>q(:utf8);
use PPI;
use PPI::Dumper;
use P;

P "parse: %s", $ARGV[0];
my $doc=PPI::Document->new($ARGV[0]);
my $dumpr=PPI::Dumper->new($doc, qw(whitespace 0 comments 0));
# .my $toks = $dumpr->list;   # for indirect access...
$dumpr->print;