Select Code to Download

print "<SESSION>\n";
print_hash(\%hash);
...
        print "$prefix</$key>\n";
    }
}

use XML::Simple;
use strict;
...

print XMLout(\%hash, RootName => 'SESSION');