Select Code to Download

our @ISA = qw/Exporter/;
our @EXPORTER = qw/new/;

bless $self, $class;

use Carp qw/confess/;

...
        confess "Error loading data!";
    }
}

my $obj = coolobject->new or die "$!";

my $obj = eval { coolobject->new }; # $obj might be undef