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