Select Code to Download

if (exists($data->{channel}->{title})) {
  ...
  my $data->{channel}->{item}->[0]=$mydata;
  ...
}

use strict; use warnings; use Data::Dumper;

...
                   'now you see'
                 ]
        };

use strict; use warnings; use Data::Dumper;

...
                   'now you see'
                 ]
        };