my $twig = XML::Twig->new(twig_handlers =>
	  {MONTH => \&upd_month,
	   DAY	 => \&upd_day,
	   YEAR  => \&upd_year
   },
   PrettyPrint =>'indented',
   );
$twig->parsefile(XML_FILE);

##</code><code>##

sub upd_month{
my( $t, $post)= @_; 
$post->set_text("$expire{month}");
}
sub upd_day{
my( $t, $post)= @_; 
$post->set_text("$expire{day}");
}
sub upd_year{
my( $t, $post)= @_; 
$post->set_text("$expire{year}");
}