drbaggy

use strict;
use warnings;
use feature qw(say);

my $data = {
  'top' => {
    'window' => {
      'elements' => [
        { id =>  44, name => 'link', value => 'xyz' },
        { id =>  48, name => 'title', value => 'Home Page' },

drbaggy

#!/usr/local/bin/perl

## Purpose:
## Some "library routines" to parse the supplied input file, and
## additional functions to render data as XML.
## As the XML and data file is simple we will just use standard
## perl features.
##
## In this case parses the content at the end of the file
## and streams data out using a lambda function.