Select Code to Download

use Net::XMPP;
use strict;
...
    print $presence->GetXML(),"\n";
    print "===\n";
}

while(defined($Connection->Process())) { }