#!/usr/local/bin/perl-Tw

my $datpath          = "/develop/release/cmsidev/dev/cr/cds/comms/x2p/LOGS";
my $INI_Ref_Number   = 2;
my $INI_Company_Code = 840;
my $INI_CR2K_Number  = 4308.01;

print "$datpath \n";

system ('$datpath/rdes  $datpath/xxx$INI_CR2K_Number.xml $INI_Ref_Number $INI_Company_Code  > error.dat ');