#! perl
use warnings;
use strict;
use PPI;
use PPI::Dumper;

printf "parse: >%s<\n", $ARGV[0];

my $doc   = PPI::Document->new(\$ARGV[0])
    or die "PPI::Document->new failed: $!";

my $dumpr = PPI::Dumper->new($doc)
    or die "PPI::Dumper->new failed: $!";

$dumpr->print;