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

##</code><code>##

14:25 >perl 1688_SoPW.pl "print qq[Hello world!\n];"
parse: >print qq[Hello world!\n];<
PPI::Document
  PPI::Statement
    PPI::Token::Word    'print'
    PPI::Token::Whitespace      ' '
    PPI::Token::Quote::Interpolate      'qq[Hello world!\n]'
    PPI::Token::Structure       ';'

14:25 >