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

__DATA__
__END__

karls-mac-mini:monks karl$ perl -MO=Deparse data_end.pl 
__DATA__
__END__
data_end.pl syntax Ok