$ cat Prueba3.pm
  BEGIN {
    unless (Parse::Eyapp::Driver->can('YYParse')) {
      eval q{

package Parse::Eyapp::Driver;

require 5.006;

#sub _DBLoad {

1;


      }; # End of string containing Parse::Eyapp::Driver
    }; # Unless Parse::Eyapp::Driver was loaded
  } ########### End of BEGIN