#!/usr/bin/perl -w
use strict;


=pod
Output:
Name "Extra::DATA" used only once: possible typo at ./camtst line 23.
From main Extra
datum
__END__
This
data
is
for
main
Read on closed filehandle <DATA> at ./camtst line 23.
From Extra
=cut


print "From main ", <DATA>;
package Extra;
print "From Extra", <DATA>;
package main;
__DATA__
Extra
datum
__END__
This
data
is
for
main