system "perl 20_October_2004_K.pl  G:/PUB_HLTH/Perl_program/DSR_calculation/20_October_2004/Input/$job G:/PUB_HLTH/Perl_program/DSR_calculation/20_October_2004/Output/$job_out";



##</code><code>##


my $inputfile = $ARGV[0];
 my $outputfile = $ARGV[1];


open (OUTPUT_FILE, "+>>", $outputfile)
  or die "Unable to open $outputfile: $^E\n";

  while (my @row = $sth_C->fetchrow_array) {

    print OUTPUT_FILE join("\t", @row);
    print OUTPUT_FILE "\n";

  }