Select Code to Download

$data->{channel}->{item}->[0]->{title};
$data->{channel}->{item}->[1]->{title};
$data->{channel}->{item}->[2]->{title};
$data->{channel}->{item}->[3]->{title};

#!/usr/bin/perl

...

print "Description: $description\n";