my $input = \*STDIN;
my $entity = $parser->parse($input);

##</code><code>##

my $input = \*STDIN;
my @copy = <$input>;
open(COPY, ">copy.txt");
print COPY @copy;
close COPY;

my $entity = $parser->parse($input);


##</code><code>##

my $input = \*STDIN;
my $copy = $input;

##</code><code>##

my $input = \*STDIN;
my @copy = <$input>;

open (TMP, ">/tmp/copy.txt");
print TMP @copy;
close(TMP);

open($copy, "</tmp/copy.txt");

my $entity = $parser->parse($copy);