$ENV{ORACLE_HOME} = '/opt/OraHome9i/6iserver';
$ENV{REPORTS60_PATH} = '$ORACLE_HOME/repordmin/templates:$ORACLE_HOME/tools/devd
em60/demo/reports';

if(&ReadParse(\%input)){

 @args= ("/opt/OraHome9i/6iserver/bin/rwcli60", "report=$input{rpt}" , "userid=rep_user/sinclair\@pmi", "server=rep60_kodiac", "destype=printer", "desname=$input{desname}", "btch=$input{btch}", "subbtch=0", "record=$input{record}");

 &ProcessForm;}
else{ die;}
}
sub ProcessForm {
  $retval = system("@args");
  die "system failed: $?" unless $retval == 0;