#!/usr/bin/perl --
use strict;
use warnings;
use PPI;
use PPI::Dumper;
# Load a document
my $Module = PPI::Document->new( \q{ print "hi $_\n"; });

print join "\n", PPI::Dumper->new( $Module )->list , "\n";
__END__
PPI::Document
  PPI::Token::Whitespace  	' '
  PPI::Statement
    PPI::Token::Word  	'print'
    PPI::Token::Whitespace  	' '
    PPI::Token::Quote::Double  	'"hi $_\n"'
    PPI::Token::Structure  	';'
  PPI::Token::Whitespace  	' '