Select Code to Download

    use strict;
    seek DATA, 0, 0;
...
    is
    a
    test

    use strict;
    my $start = tell DATA;
...
    is
    a
    test