open BAR, '|bar.pl' || die qq(Useful msg: $!);
print BAR $xmldata;