- or download this
#!/usr/bin/perl -w
...
}
close (XML);
system("bar.pl -p 1234 -d $xmldata");
- or download this
#!/usr/bin/perl -w
...
our $opt_p;
print $opt_p, "\n";
print $opt_d, "\n";
- or download this
<?xml version="1.0"?>
<data config="dev">
...
<AnotherTag>data</AnotherTag>
<SQL>select foo from bar where baz = 'something'</SQL>
</data>