open my $OUT, '>', 'file.txt' or die $!;
print $OUT $parser->toString;
close $OUT or die $!;