# ps aux | grep '[/]usr/bin/perl ./daemon.pl' | perl -ane 'print $F[1]';
# if many...
ps aux | grep '[/]usr/bin/perl ./daemon.pl' | perl -ane 'print $F[1] . qq(\n)'