{
   our @missing =
         map +(m/^(\S+)/),
         grep !eval "use $_; 1",
         grep $_,
         split /\s*\n\s*/, "
              Storable
              File::Basename
              A::B wq(a b c)
              Foo::Bar
              CGI qw/:standard/
        " and die "Please install CPAN modules: cpan -i @missing\n";
}