Select Code to Download

<?xml version="1.0" encoding="UTF-8"?><response></response>

#!/usr/bin/perl
use strict;
...
    print "Offset=$offset\n";
} while ($input_xml = Get_CMDB_CI());
close($fh) || warn "close failed: $!";