Select Code to Download

print IO Data::Dumper->new([$data],[$name])->Indent(2)->Quotekeys(0)->
+Dump if $name;

wantarray ? return @file : return join '', @file;