Select Code to Download

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

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