Select Code to Download

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

#!/usr/bin/perl
use warnings;
...
my $dumpr=PPI::Dumper->new($doc, qw(whitespace 0 comments 0));
# .my $toks = $dumpr->list;   # for indirect access...
$dumpr->print;

> 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.