I often use Data::Dumper like this:

warn Data::Dumper->Dump([$p],['p']);
[download]

# Which will dump with the variable p = {} instead of $VAR1 = {}

Sometimes I use log4perl and Data::Dumper like this (from the log4perl faq)

$logger->trace( {filter => \&Data::Dumper::Dumper, value => $variable_
+to_dump }, undef, $TRACE, undef, undef );
[download]

So my question is, how can I dump the value so it looks like $variable_to_dump instead of $VAR1?