Please use <code> tags and other useful suggestions from the Writeup Formatting Tips.

For example:

<code>
sub sendraw {
    my ($pstr)=@_;
    $PROTO=getprotobyname('tcp')||0;
    @DXX=();
    $pstr=~s/\n/\r\n/g;
    $pstr=~s/\r\r/\r/g;
#    ... etc. ...
</code>
[download]

Otherwise, consider posting to Obfuscated code.

UPDATE: That's better, thanks.