Actually you only need:

use warnings;
use strict;
use Tk;
use POE;
[download]

to get the error! Something to do with how the Tk event loop gets replaced by the POE event loop. The documentation is not clear on this matter!

I'm doing this on Windows with ActiveState Perl. There may be issues that a different if you are using a different platform or cygwin Perl.