Rp

1. !/usr/bin/perl

for ( split /\n/, qx( ps x|egrep \"[.]out$\" ) ) {

       qx( kill $1 ) if /^\s*([0-9]+).+?\d+:\d\d\s*(.+)/;
       }

qx( cp /var/www/organicdesign/wiki/a.out /var/www/organicdesign/wiki/bin/peerd.out ); qx( /etc/init.d/peerd& );