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;