my $tape = Device::MagneticTape->new(..) or die Device::MagneticTape->error();

# instead of

my $tape = Device::MagneticTape->new(..);
die $tape unless ref $tape;