C:\>perl -MO=Deparse,-p -e"die ref $res ? $res->faultstring : $soap->transport->status"
die((ref($res) ? $res->faultstring : $soap->transport->status));
-e syntax OK

##</code><code>##

die( ( ref( $res ) ? $res->faultstring : $soap->transport->status ) );