system('/usr/bin/perl /home/SQLtoXML.pl $source_id $OutputXMLDir');

##</code><code>##

 my $PassedSource = $ARGV[0];
 my $FinalDir = $ARGV[1];