Attempt to bless into a reference at /usr/share/perl5/XML/Twig.pm line 392.

##</code><code>##

use XML::Twig;
use LWP::Simple;

my $url = 'http://mywebserver/status.xml';
my $twig = new XML::Twig(TwigRoots => {
	'smsc/received' => sub {$author = $_[1]->text;  }});
$twig->nparse( $url );
$twig->print;