#! /usr/bin/perl

use XML::Simple ;
use strict ;
use warnings ;

my $obj = XML::Simple->new() ;
my $xml = $obj->XMLin("fl.xml") ;