$rpt_name = $ARGV[0];
   $desname = $ARGV[1];
   $btch = $ARGV[2];
   $record = $ARGV[3];

   @args = qw(/where/the/program/is/rwcli60 report=$rpt_name userid=user_id@db server=my_server destype=printer desname=$desname btch=$btch record=$record subbtch=0);

   $retval = system("@args");
   die "system failed: $?" unless $retval == 0;