use strict;
use warnings;
use MyTest;

while (<DATA>)
{
    chomp;
    print "MAIN: >$_<\n";
}

#MyTest::run();

while (<MyTest::DATA>)
{
    chomp;
    print "MAIN: >$_<\n";
}

__DATA__
32 wilma 16

##</code><code>##

package MyTest;

use strict;
use warnings;

sub run
{
    while (<DATA>)
    {
        chomp;
        print "TEST: *$_*\n";
    }

    close DATA;
}

1;

__DATA__
TEST 1 2 3

##</code><code>##

14:19 >perl 646_SoPW.pl
MAIN: >32 wilma 16<
MAIN: >TEST 1 2 3<

16:04 >

##</code><code>##

sub run
{
    my $datapos = tell DATA;

    while (<DATA>)
    {
        chomp;
        print "TEST: *$_*\n";
    }

    seek DATA, $datapos, 0;
}