my @ret = ();
  my $code = "use File::Where; \@ret = File::Where->where_pm(\"File::W
+here\");";
  eval $code;
[download]

can be written more readably as:

  eval("use File::Where");
  die($@) if $@;
  my @ret = File::Where->where_pm("File::Where");
[download]

or

  require File::Where;
  import  File::Where;
  my @ret = File::Where->where_pm("File::Where");
[download]

These two snippets won't hide errors like yours did.