print "start\n";

$svc = "PRUNE";
$msg = "<job>90099368</job><root>/gpfs/STUDIOS/HQ/</root><version>2</version>";

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