use strict;
    seek DATA, 0, 0;
    print while <DATA>;
    __DATA__
    This
    is
    a
    test

##</code><code>##

    use strict;
    my $start = tell DATA;
    seek DATA, $start, 0;
    print while <DATA>;
    __DATA__
    This
    is
    a
    test