use YAML;
%test = (k1 => "v1",
         k2 => "v2");
$dump = Dump \%test;
$dump =~ s/^---/test:/;
print $dump;