Select Code to Download

#! perl
use warnings;
...
    or die "PPI::Dumper->new failed: $!";

$dumpr->print;

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

14:25 >