Select Code to Download

# assumes-> use File::Temp ':POSIX'; for tempnam()
# assumes-> use YAML 'Dump'; (or) use YAML::Syck 'Dump'; for Dump()
...
    
    $message.=sprintf '(%d dumped to "%s")', $structures, $dump_n;
}

$logger->fatal( dump('Unable to foo, dumping object $foo_doer.', $foo_
+doer) );

20070314 15:09 FATAL: Unable to foo, dumping object $foo_doer.(1 dumpe
+d to "dump.foobar1")