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