say sdump($some_ref);

sub sdump {
    my $ref = shift || croak('nothing to dump - missing ref');
    my $depth = shift || 2;
    local $Data::Dumper::Maxdepth = $depth;
    return 'Dump of $var_name: ' . "\n" . Dumper($ref)
}