Rp

1. !/usr/bin/perl

1. kill currently running instances of peerd

for ( split /\n/, qx( ps x|egrep \"husk[.]bin$\" ) ) { # damn " never work :-( qx( kill $1 ) if /^\s*([0-9]+).+?\d+:\d\d\s*(.+)/; }

1. compile husk logging output

qx( date >> /home/peerd/peerd.log ); qx( gcc -o /home/peerd/husk.bin /home/peerd/husk.c >> /home/peerd/peerd.log 2>&1 ); exec '/home/peerd/husk.bin &';