#!/usr/bin/perl
use XML::Twig;
my $t=XML::Twig->new( twig_handlers => { name => \&my_s });
$t->parse('<doc><name>Alice</name><name>Bob</name></doc>');

sub my_s {
	my ($twig, $section, $greeting) = @_;
	print $greeting || "Hello" , ", ", $section->text(), "!\n";
}

# Yields:
# Hello, Alice!
# Hello, Bob!