Select Code to Download

use Errno qw( EINTR );

...
        print $line;
    }    
} while $! != EINTR;  # Go read from new file.