# Print __DATA__ section, if necessary
        no strict 'refs';
        my $laststash = defined $self->{'curcop'}
            ? $self->{'curcop'}->stash->NAME : $self->{'curstash'};
        if (defined *{$laststash."::DATA"}{IO}) {
            print "package $laststash;\n"
                unless $laststash eq $self->{'curstash'};
            print "__DATA__\n";
            print readline(*{$laststash."::DATA"});
        }

##</code><code>##

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

##</code><code>##

__END__
end
end

##</code><code>##

__DATA__
# data
# data
__END__
end
end