use strict;
use warnings;
use Archive::Tar;

$Archive::Tar::WARN = 0;

my $device = '/dev/rmt/1';
my $tar = Archive::Tar->new();

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