Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dumper ();
...
  print Data::Dumper->new([@_])->Sortkeys(1)
    ->Indent(1)->Useqq(1)->Dump . "\n";
}