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);