#!/usr/bin/perl 

use strict;
use warnings;
use Data::Dumper::Concise;

require Devel::Symdump;

my @packs = qw(Data::Dumper::Concise);
my $obj   = Devel::Symdump->new(@packs);

my @array = $obj->scalars;
@array = $obj->arrays;
@array = $obj->hashes;

my $string = $obj->as_string;
print $string, "\n";