Select Code to Download

package PoxPost;

...
        return 0;
    }
}

print "start\n";

...

PoxPost::PostESB($svc, $msg);
print "sent\n";

#!/usr/bin/perl -w

...
    PoxPost::PostESB("COMPARE_PRUNE", $payload);    
}