Select Code to Download

#!/usr/bin/perl -w
 
use strict;
...
        print "Recieved Message: $xml\n";
    }
}

sub sendxml {
    $SIG{PIPE} = "IGNORE";
    $\="\n";
...
    }
    undef $send_client;
}