Select Code to Download

use strict;
use warnings;
...
$! = 0;
$tar->read($device);
die "### ERROR on \$tar->read($device): $!\n\n" if $!;