karls-mac-mini:monks karl$ cat data.pl
#!/usr/bin/perl

__DATA__

karls-mac-mini:monks karl$ cat end.pl
#!/usr/bin/perl

__END__

karls-mac-mini:monks karl$ perl -MO=Deparse end.pl 
__DATA__
end.pl syntax OK

karls-mac-mini:monks karl$ perl -MO=Deparse data.pl 
__DATA__
data.pl syntax OK