TMTOWTDI, some of them not involving perl. :)

$ TTY=`tty`
$ kill -HUP $( ps xuaw | grep $SHELL | grep -v ${TTY#/dev/} | awk '{ p
+rint $2 }' )
[download]

Update: This may be somewhat zsh specific. Newer bashen should understand $() for backticks. If you're using zsh (and you should be, because it rules (almost as much as perl :)), ${TTY#/dev/} can be replaced with ${TTY:t} and you shouldn't need to set TTY yourself.