print $_ <<"EOJ" for *LOG, *EXTPROGRAM;
foo
$bar
@baz
EOJ
[download]

Note you should always quote your heredoc terminators.

Makeshifts last the longest.