my $laststash = "main";
my $data=\*{$laststash."::DATA"};

$last = tell $data;
seek $data,-20,1;            # -20 is just a temporary hack for proof of concept

my $endline;

$endline = readline($data) while tell $data < $last;

print $endline;
print <$data>;

#package Test;
# __DATA__
# data
# data
__END__
end
end