Select Code to Download

package CoolObject;
sub new {
...
  my $self = { name => 'new' }, $class;
  $self->loaddata() or die 'Error loading data';
  return $self;

my $co = CoolObject->new();
# or if you want to trap the error...
...
if ($@) {
  # do something about the error
}