Select Code to Download

perl -e'
   use strict;
...
   print "ok\n";
'
ok

use Data::Dumper qw( Dumper );
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys = 1;
print(Dumper($data));