Select Code to Download

use IO::Socket::INET;

my $socket = new IO::Socket::INET (
...

        # Do stuff with the $client_socket...
}

$good = 1;

while ($good)
...
        seek ($LOGFILE, 0, 1);
        sleep 1;
}