Select Code to Download

use Data::Dump::Streamer;
use Fatal qw/open/;
...
my $x = {cat => [qw/man du/]};

Dump($x)->To($fh)->Out();

$HASH1 = { cat => [
           'man',
           'du'
         ] };