my @ret = ();
  my $code = "use File::Where; \@ret = File::Where->where_pm(\"File::Where\");";
  eval $code;

##</code><code>##

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

##</code><code>##

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