do you have Tk installed? cos it's in an eval block it will fail without warnings - add

;print $@ if $@;
[download]

to the end and it should tell you what's wrong. a