A bit nasty, but using

print $writer "history; exit\n";
[download]

will do what you want.

Hope this helps, -gjb-