Select Code to Download

__END__ behaves like __DATA__ in the toplevel script (but
not in files loaded with "require" or "do") and leaves the
remaining contents of the file accessible via "main::DATA".

$ cat data_eq_end.pl
#!/usr/bin/perl
...
1
2
3