Select Code to Download

use Data::Roundtrip qw/json2perl/;
use File::Temp; 
...
my $args = json2perl($ret);

print join("\n", @$args)."\n";