Select Code to Download

#!/usr/bin/perl  --
use strict;
use warnings;
...

sub DD { scalar Data::Dumper->new( \@_ )->Indent(1)->Useqq(1)->Dump; }
__END__