Select Code to Download

...(set up socket)...
my $end = time + 15*60;
...
    last if ($nfound == 0); # either timeout or end of file
    # read from socket here
}