Thanks to the two previous posters for suggesting an END block. As a long-time perl dilettance, I was not aware of such usage.

I then noticed though that END block doesn't capture things like SIGINT/SIGTERM.

To capture those, I had to add the following line of code:

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = sub { exit; };
[download]

Is this the correct way to do it?