use strict;
use warnings;

package TEST;
print "Package\n";
my @data = <DATA>;
print @data;
print "\n";

package main;

print "Main\n";
my @data = <DATA>;
print @data;
print "\n";



__DATA__
1
2
3
4
5