Select Code to Download

#! perl -slw
use strict;
...
binmode STDOUT;
print freeze XMLin( $ARGV[ 0 ] );

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