no strict;
$foo = "Hello, world!\n";
$bar = "foo";
print $$bar;

##</code><code>##

use strict;
use Devel::Symdump;
use XML::Parser;

my $parser = XML::Parser->new
    Handlers => {
        Start => sub { },
        End   => sub { },
        Char  => sub { },
        XMLDecl => sub { },
    }
);

my $wml = `cat test.wml`;

my $dump = Devel::Symdump->rnew;
$parser->parse($wml);
print $dump->diff(Devel::Symdump->rnew);

##</code><code>##

        $ioref = *{$arg}{IO} if defined *{$arg};

##</code><code>##

        $ioref = *{$arg}{IO};