sub is_module_installed
{
  my($mod)=@_;
  return (system("perl -M$mod -e 1 2>/dev/null") == 0);
}