# Create a document from source
         $Document = PPI::Document->new(\'print "Hello World!\n"');

##</code><code>##

#!/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;

##</code><code>##

> ppi_dump 'print "Hello World!\n"'

parse: print "Hello World!\n"
Can't call method "list" on an undefined value at ./ppi_dump line 14.