Select Code to Download

my $a = [ %c ];
my $d=Data::Dumper->New([ %c , $a]);
$Server->syswrite( $d , length($g));