$ perl -c Prueba3trick.pm
Prueba3trick.pm syntax OK
pl@nereida:/tmp$ cat -n Prueba3trick.pm
     1    BEGIN {
     2      unless (Parse::Eyapp::Driver->can('YYParse')) {
     3        eval q{
     4
     5  package Parse::Eyapp::Driver;
     6
     7  require 5.006;
     8
     9  #sub _DBLoad { # False curly: }
    10
    11  1;
    12
    13
    14        }; # End of string 
    15      }; # Unless Parse::Eyapp::Driver was loaded
    16    } ########### End of BEGIN