CREATE OR REPLACE FUNCTION sendclaimcoversheet(
    text,
    text)
  RETURNS integer AS
$BODY$

    use strict;
    use warnings;
    use SOAP::Lite;
    use Try::Tiny;
    use Time::Piece;
    local $SIG{ALRM} = sub {
        die "function sendclaimcoversheet caught ALRM with:\n(",
            join( ",",@_)),")\n";
    };