for( 1 .. 1000 ) {
    my $xml = thaw `xmlSto.pl junk.xml`;
    print mem $_; <STDIN>;
}