#!/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");

##</code><code>##

#!/usr/bin/perl -w

use Getopt::Std;

getopts('d:p:');
our $opt_d;
our $opt_p;
print $opt_p, "\n";
print $opt_d, "\n";

##</code><code>##

<?xml version="1.0"?>
<data config="dev">
   <SomeTag>data</SomeTag>
   <AnotherTag>data</AnotherTag>
   <SQL>select foo from bar where baz = 'something'</SQL>
</data>