# assumes-> use File::Temp ':POSIX'; for tempnam()
# assumes-> use YAML 'Dump'; (or) use YAML::Syck 'Dump'; for Dump()
sub dump {
    my $message = shift;
    my $structures = scalar @_; # yes, 'scalar' is redudant, but readable

    # create file in curdir with prefix 'dump.'
    my ($dump_h, $dump_n) = tempnam('.','dump.'); 

    print $dump_h, Dump($_) for @_;
    close $dump_h;
    
    $message.=sprintf '(%d dumped to "%s")', $structures, $dump_n;
}