Select Code to Download

#!/usr/bin/perl

...
  printf "%20s: %-3s\n",$mod,is_module_installed($mod)?"Yes":"No";
}

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

sub is_module_installed
{
...
    _exit($@?1:0);
  }
}