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