Select Code to Download

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

# instead of

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

#!/usr/bin/perl -w
package Device::MagneticTape;
use strict;
...
}

1;