Select Code to Download

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

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