Select Code to Download

    if ($arg is a FILEHANDLE) {
        require DBI::Pretty::File;
...
        require DBI::Pretty::XML;
        %hash = DBI::Pretty::XML::read_stuff_from_xml ($arg);
    }