#!/usr/bin/perl -w

open (XML, $somefile) || die "Could not open $somefile - $!";
my $xmldata;
while (<XML>) {
   $xmldata .= $_;
}
close (XML);
system("bar.pl -p 1234 -d $xmldata");