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";