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