Select Code to Download

#!/usr/bin/perl

...
print Data::Dumper->new([\@Result], [qw[Result]])->Indent(0)->Dump,"\n
+";

__END__