BEGIN {
   for (@deps) {
      my $dep = $_;
      $dep =~ s{::}{/}g;
      $dep .= ".pm";
      require $dep;
   }
}

##</code><code>##

BEGIN {
   for my $dep (@deps) {
      /^\w+(?:::\w+)*\z/
         or die("Invalid");

      eval("use $dep; 1")
         or die($@);
   }
}