<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>