casiano@beowulf:~$ perl -v This is perl, v5.10.0 built for i486-linux-gnu-thread-multi casiano@beowulf:~$ perl -c Prueba3.pm Missing right curly or square bracket at Prueba3.pm line 16, at end of line (Might be a runaway multi-line {} string starting on line 3) syntax error at Prueba3.pm line 16, at EOF Prueba3.pm had compilation errors. casiano@beowulf:~$ perl -c Prueba.pm Prueba.pm syntax OK casiano@beowulf:~$ cat -n Prueba.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 10 1; 11 12 13 }; # End of string containing Parse::Eyapp::Driver 14 }; # Unless Parse::Eyapp::Driver was loaded 15 } ########### End of BEGIN casiano@beowulf:~$ cat -n Prueba3.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 { 10 11 1; 12 13 14 }; # End of string containing Parse::Eyapp::Driver 15 }; # Unless Parse::Eyapp::Driver was loaded 16 } ########### End of BEGIN