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

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

my $header_file = 'tape.header';
my @files = Archive::Tar->list_archive($device);
my $junk = $tar->get_content($header_file)
      or die "### ERROR - No such file in archive: '$header_file'\n\n";

__OUTPUT__
Warning: something's wrong at test.errors.pl line 7.
No such file in archive: 'tape.header' at test.errors.pl line 11
### ERROR - No such file in archive: 'tape.header'