Test presence paquet deb dans un script Perl

Pour tester la présence d'un paquet Debian sur une machine dans un
script Perl, j'ai utilisé :

$PKG_IS_INSTALLED=`/usr/bin/dpkg -l 'nom-du-paquet*' | grep 'ii'`;

if ($PKG_IS_INSTALLED)
     {
    Bla, bla, action ;
    }

Ca fait bricolage...


Est-ce-qu'il y a une méthode plus "jolie" ?

D'avance merci

- --
   .-'-..   | Frederic Ollivier
  /  ..  \  |
  '. `'   | | http://lmc.ac-grenoble.fr
   .'     . | http://www.ac-grenoble.fr/webcurie
  /     ./  | GNU/Linux User #282096
  \___./    |                  http://counter.li.org