eval
{
  someClass->new()->someMethod();
} or die 'test';

##</code><code>##

my $retVal = undef;
eval
{
  someClass->new()->someMethod();
} or $retVal = SOAP::Fault->new(faultstring => $@);
die $retVal;