Select Code to Download

#!/usr/bin/perl

...
my $pobj = Unix::PID->new;

print join(' ',$pobj->get_pidof($cmd)),"\n";

ivor@orinoco:~$ kill -19 `findpids --command btdownloadgui`
...
[8]   Stopped                 nice btdownloadgui --saveas ${fil%.torre
+nt} $torrent  (wd: ~)
[9]-  Stopped                 nice btdownloadgui --saveas ${fil%.torre
+nt} $torrent  (wd: ~)

ivor@orinoco:~$ kill -18 `findpids --command btdownloadgui`