When you create your socket:

    my $sock = new IO::Socket::INET( 
    LocalHost => 'localhost', LocalPort => $port,
[download]

you tell it to only listen on localhost. Which likely is not what you want. Maybe you want to omit the LocalHost parameter alltogether, so it listens on all interfaces?