lanx@nc10-ubuntu:/tmp$ cat no_data.pl 
use wrong_data;
print <DATA>;

lanx@nc10-ubuntu:/tmp$ cat wrong_data.pm 
1;

__DATA__
wrong main::DATA  

lanx@nc10-ubuntu:/tmp$ perl -MO=Deparse no_data.pl 
use wrong_data;
print <DATA>;
__DATA__
wrong main::DATA  
no_data.pl syntax OK

lanx@nc10-ubuntu:/tmp$ perl no_data.pl 
wrong_main::DATA