warn $tar->error unless $tar->read($device);