#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;

XML::Twig->new( twig_handlers => { Sender   => sub { print "sender: ", $_->text, "\n"; },
                                   Receiver => sub { print "receiver: ", $_->text, "\n"; },
                                   FileType => sub { print "  file: ", $_->first_child->tag, "\n";
                                                     $_->purge;
                                                   },
                                 },
              )
         ->parsefile( "fdata.xml");