use XML::Simple;
use Parse::FixedLength;

my $x = XMLin(<<XMLEND);
<format>
<field>
  <fname>fld1</fname>
  <length>10</length>
</field>
<field>
  <fname>fld2</fname>
  <length>20</length>
</field>
<field>
  <fname>fld3</fname>
  <length>30</length>
</field>
</format>
XMLEND

my $fmt = [ map { "$_->{fname}:$_->{length}" } @{$x->{field}} ];

my $p = Parse::FixedLength->new($fmt);