#!/usr/bin/perl

use warnings;
use strict;
use POSIX qw(_exit);

foreach my $mod (qw(CPAN No::Such IO::Socket Not::Installed))
{
  printf "%20s: %-3s\n",$mod,is_module_installed($mod)?"Yes":"No";
}