Perl:
print($fh q{for (keys(%h)) { print("$_: $h{$k}\n"); }});

C:
fprintf(fh, "for (keys(%%h)) { print(\"$_: $h{$_}\\n\"); }");
fprintf(fh, "%s", "for (keys(%h)) { print(\"$_: $h{$_}\\n\"); }");
fputs("for (keys(%h)) { print(\"$_: $h{$_}\\n\"); }", fh);