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