@args = ("/where/my/program/is", "report=sa
lesrep.rdf", "useid=my_user_id", "server=my_server
", "destype=printer", "desname=my_desname");
  $ret_val = system(@args) == 0 or die "system @args failed:
 $?";
}